Uma forma de formatar é usar a função axis.POSIX() veja,
#------------------------------------------------------------------------------------------
# gráficos de séries no tempo
met <- read.table("http://www.leg.ufpr.br/~walmes/data/metereologia.txt",
header=TRUE, sep="\t", stringsAsFactors=FALSE)
str(met)
names(met) <- tolower(names(met)) # passa os nomes para minúsculas
#------------------------------------------------------------------------------------------
# conversão com a função as.POSIX*
met$data <- as.POSIXct(met$data, format="%Y-%m-%d")
plot(temp~data, data=met, type="l", xaxt="n")
axis.POSIXct(1, at=seq(as.POSIXct("2009-10-01"),
as.POSIXct("2011-10-01"), by="month"), format="%B", col=2)
plot(temp~data, data=met, type="l", xaxt="n")
axis.POSIXct(1, at=seq(as.POSIXct("2009-10-01"),
as.POSIXct("2011-10-01"), by="month"), format="%m/%y", col=2)
#------------------------------------------------------------------------------------------
# duas séries em um mesmo gráfico
par(mar=c(5.1,4.1,4.1,4.1))
plot(temp~data, data=met, type="l", xaxt="n")
par(new=TRUE)
plot(urel~data, data=met, type="l", xaxt="n", yaxt="n", ylab=NA, col=2)
axis(4, col=2)
mtext("urel", side=4, line=3)
axis.POSIXct(1, at=seq(as.POSIXct("2009-10-01"),
as.POSIXct("2011-10-01"), by="month"), format="%m/%y")
À disposição.
Walmes.
==========================================================================
Walmes Marques ZevianiLEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)
Departamento de Estatística - Universidade Federal do Paranáfone: (+55) 41 3361 3573
VoIP: (3361 3600) 1053 1173e-mail: walmes@ufpr.br
skype: walmeszeviani
twitter: @walmeszevianihomepage: http://www.leg.ufpr.br/~walmes
linux user number: 531218==========================================================================