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 Zeviani LEG (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 1173 e-mail: walmes@ufpr.br skype: walmeszeviani twitter: @walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ==========================================================================