<font face="trebuchet ms,sans-serif">Para séries temporais é interessante a função axis.POSIXct(). Veja<br><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">#------------------------------------------------------------------------------------------</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace"># importando um arquivo com datas</span><br style="font-family:courier new,monospace"><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">dac <- read.table("<a href="http://www.leg.ufpr.br/~walmes/ensino/ce223-2011-01/dac.txt">http://www.leg.ufpr.br/~walmes/ensino/ce223-2011-01/dac.txt</a>")</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">str(dac)</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">dac <- dac$V1</span><br style="font-family:courier new,monospace">
<br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">#------------------------------------------------------------------------------------------</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace"># conversão para datas</span><br style="font-family:courier new,monospace"><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">dac <- as.POSIXlt(dac, origin="1970-01-01")</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">dac <- sort(dac)</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">str(dac)</span><br style="font-family:courier new,monospace">
<br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">hac <- as.POSIXct(format(dac, "%H:%M:%S"), format="%H:%M:%S")</span><br style="font-family:courier new,monospace">
<br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">plot(dac, hac, type="l", ylab="Hora do acesso", xlab="Data do acesso", xaxt="n")</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">axis.POSIXct(1, at=seq(as.POSIXct("2010-10-01"), as.POSIXct("2011-06-15"), by="month"), format="%B", col=2)</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">axis.POSIXct(3, at=seq(min(dac), max(dac), by="week"), format="%d/%m")</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">axis.POSIXct(1, at=seq(as.POSIXct("2010-10-01"), as.POSIXct("2011-06-15"), by="3 days"), format="%d", col=2, labels=FALSE, tcl=-0.2)</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">axis.POSIXct(2, at=seq(as.POSIXct("03:00:00", format="%H:%M:%S"), as.POSIXct("21:00:00", format="%H:%M:%S"), by="hour"),</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">             format="%H", labels=FALSE, tcl=-0.2)<br><br></span></font><font face="trebuchet ms,sans-serif"><span style="font-family:courier new,monospace">#------------------------------------------------------------------------------------------</span></font><br>
<font face="trebuchet ms,sans-serif"><span style="font-family:courier new,monospace"></span><br>ou acesse esse script<br><br><a href="http://www.leg.ufpr.br/~walmes/ensino/ce223-2011-01/ce223-2011-01-aula22.R">http://www.leg.ufpr.br/~walmes/ensino/ce223-2011-01/ce223-2011-01-aula22.R</a><br>
<br>À disposição.<br>Walmes.<br><br clear="all"></font><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Walmes Marques Zeviani</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">fone: (+55) 41 3361 3573</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">VoIP: (3361 3600) 1053 1173</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">twitter: @walmeszeviani</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">linux user number: 531218</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br>