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@yahoo.com.br>
To: "r-br@listas.c3sl.ufpr.br" <r-br@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?
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)
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="")}
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@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.