[R-br] Ajuda com gráfico de pontos

[Alisson Lucrecio]

Júlia veja se é isso que precisa?

setwd("C:/Users/P.E/Documents/R/Estatistica para amigos/r-br/Maria Julia")

library(plyr)

dados <- read.table("dados.txt", h=F)
names(dados) <- c("x", "y", "mes")
dados2 <- dlply(dados, "mes")
n <- length(dados2)

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.

par(mfrow=c(7,3),mar=rep(2,4))
for(i in 1:n){
  plot(y~x, data = dados2[[i]], main=dts[i])}
 
Att.
Alisson Lucrécio da Costa


________________________________
 From: Julia Maria <juliam_est em yahoo.com.br>
To: "r-br em listas.c3sl.ufpr.br" <r-br em listas.c3sl.ufpr.br> 
Sent: Saturday, December 29, 2012 10:24 AM
Subject: [R-br] Ajuda com gráfico de pontos
 

Caros colegas ...
Quando vou rodar este script abaixo eu não consigo fazer com que as observações saiam em cada mês ... 
Esta saaindo apenas um pontinho preto.
Será que algum colega poderia me auxiliar neste script?
Os dados estão em anexo.

Grata

dados <- read.table("D:\\Dados.txt",h=F)

dadost <- as.matrix(dados[,3])

x <- c(710000,712000,712000,710000)
y <- c(7700000,7700000,7900000, 7900000)
poly <- cbind(x,y)
plot(poly)

n <- max(dadost)

############################## ############################## ############################
        GRAFICO DE TODOS OS TEMPOS
############################## ############################## ##############################

dts <- c("Nov2001","Dez2001"," Jan2002","Fev2002","Mar2002",
         "Abr2002","Maio2002","Jun2002" ,"Jul2002","Ago2002","Set2002" )

par(mfrow=c(7,3),mar=rep(2,4))
for(i in 1:n){
    plot(poly,type="n",xlab="x", ylab="y",main=dts[i])
    points(dados[,1][dadost==i], dados[,2][dadost==i],xlab="x", ylab="y",main="")}
_______________________________________________
R-br mailing list
R-br em listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121229/91479b61/attachment.html>