<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div><span><div>Júlia veja se é isso que precisa?</div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; background-color: transparent; font-style: normal;"><br></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; background-color: transparent; font-style: normal;">setwd("C:/Users/P.E/Documents/R/Estatistica para amigos/r-br/Maria Julia")</div><div><br></div><div>library(plyr)</div><div><br></div><div>dados <- read.table("dados.txt", h=F)</div><div>names(dados) <- c("x", "y", "mes")</div><div>dados2 <- dlply(dados, "mes")</div><div>n <- length(dados2)</div><div><br></div><div>dts <- c("1", "2", "3", "4", "5", "6", "7", "8" , "9", "11") # Eu não entendi muito bem por isso mudei use sua notação
de acordo com seus dados.</div><div><br></div><div>par(mfrow=c(7,3),mar=rep(2,4))</div><div>for(i in 1:n){</div><div> plot(y~x, data = dados2[[i]], main=dts[i])}</div></span></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"> </div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;">Att.</div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"><font face="times new roman, new york, times, serif">Alisson Lucrécio da Costa</font><br></div> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"> <div dir="ltr"> <font size="2" face="Arial"> <hr size="1"> <b><span style="font-weight:bold;">From:</span></b> Julia Maria
<juliam_est@yahoo.com.br><br> <b><span style="font-weight: bold;">To:</span></b> "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br> <br> <b><span style="font-weight: bold;">Sent:</span></b> Saturday, December 29, 2012 10:24 AM<br> <b><span style="font-weight: bold;">Subject:</span></b> [R-br] Ajuda com gráfico de pontos<br> </font> </div> <br>
<meta http-equiv="x-dns-prefetch-control" content="off"><div id="yiv1197326559"><div><div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); font-family: arial, helvetica, sans-serif; font-size: 10pt;"><div class="yiv1197326559msg-body yiv1197326559inner yiv1197326559undoreset" style=""><div id="yiv1197326559"><div><div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); 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="yiv1197326559e" 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="yiv1197326559hu" alt="Dados.txt"></a></span></div></div></div></div></div></div></div><meta http-equiv="x-dns-prefetch-control" content="on"><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>Leia o
guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br><br> </div> </div> </div></body></html>