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="")}