<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:10pt"><div class="msg-body inner undoreset" role="main" style=""><div id="yiv748832070"><div><div style="color:#000;background-color:#fff;font-family:arial, helvetica, sans-serif;font-size:10pt;"><div>Caros colegas ...<br>Quando vou rodar este script abaixo eu não consigo fazer com que as observações saiam em cada mês ... <br>
Esta saaindo apenas um pontinho preto.<br>Será que algum colega poderia me auxiliar neste script?</div><div style="color:rgb(0, 0, 0);font-size:13.3333px;font-family:arial, helvetica, sans-serif;background-color:transparent;font-style:normal;">Os dados estão em anexo.</div><div style="color:rgb(0, 0, 0);font-size:13.3333px;font-family:arial, helvetica, sans-serif;background-color:transparent;font-style:normal;"><br></div><div style="color:rgb(0, 0, 0);font-size:13.3333px;font-family:arial, helvetica, sans-serif;background-color:transparent;font-style:normal;">Grata<br><br>dados <- read.table("D:\\Dados.txt",h=F)<br></div><div>dadost <- as.matrix(dados[,3])<br><br>x <- c(710000,712000,712000,710000)<br>
y <- c(7700000,7700000,7900000, 7900000)<br>poly <- cbind(x,y)<br>plot(poly)<br><br>n <- max(dadost)<br><br>############################## ############################## ############################<br> GRAFICO DE TODOS OS TEMPOS<br>
############################## ############################## ##############################<br><br>dts <- c("Nov2001","Dez2001"," Jan2002","Fev2002","Mar2002",<br> "Abr2002","Maio2002","Jun2002" ,"Jul2002","Ago2002","Set2002" )<br>
<br>par(mfrow=c(7,3),mar=rep(2,4))<br>for(i in 1:n){<br> plot(poly,type="n",xlab="x", ylab="y",main=dts[i])<br> points(dados[,1][dadost==i], dados[,2][dadost==i],xlab="x", ylab="y",main="")}</div><span><a rel="nofollow" class="yiv748832070e" target="_blank" href="https://mail.google.com/mail/?ui=2&ik=c7ae1952ed&view=att&th=13bdd1f5ac1c186b&attid=0.1&disp=inline&realattid=f_hb82w3v50&safe=1&zw"><img class="yiv748832070hu" src="https://mail.google.com/mail/images/txt.gif" alt="Dados.txt"></a></span></div></div></div></div></div></body></html>