Ivan, obrigado pela atenção. Na sua dica, tentei e não consegui: 1. diminuir a distância entre os gráficos; 2. acrescentar uma legenda indicando os quatro modelos; 3. acrescentar um título (único) para os três gráficos, mantendo os nomes que separam cada gráfico. Veja o CMR:
par(mfrow=c(3,1)) tempo<-c(5,7,9,11,13) m1A<-rnorm(5,90,4) m2A<-rnorm(5,90,4) m3A<-rnorm(5,90,4) m4A<-rnorm(5,90,4) plot(m1A ~ tempo,axes = F,xlab = '',ylab ="%", main = 'Intercepto',type = 'b',xlim=c(5,13),ylim=c(75,100)) lines(m2A~tempo,col="red",type="b") lines(m3A~tempo,col="green",type="b") lines(m4A~tempo,col="black",type="b") axis(2) m1B<-rnorm(5,90,4) m2B<-rnorm(5,90,4) m3B<-rnorm(5,90,4) m4B<-rnorm(5,90,4) plot(m1B ~ tempo,axes = F,xlab = '',ylab ="%", main = 'Tratamento B',type = 'b',xlim=c(5,13),ylim=c(75,100)) lines(m2B~tempo,col="red",type="b") lines(m3B~tempo,col="green",type="b") lines(m4B~tempo,col="black",type="b") axis(2) m1C<-rnorm(5,90,4) m2C<-rnorm(5,90,4) m3C<-rnorm(5,90,4) m4C<-rnorm(5,90,4) plot(m1C ~ tempo,axes = F,xlab = "medidas de tempo",ylab ="%", main = 'Tratamento C',type = 'b',xlim=c(5,13),ylim=c(75,100)) lines(m2C~tempo,col="red",type="b") lines(m3C~tempo,col="green",type="b") lines(m4C~tempo,col="black",type="b") axis(1, at = seq(5, 13, 2)) axis(2) Agradeço qualquer sugestão. Maurício Em 15 de novembro de 2013 08:44, Ivan Bezerra Allaman < [email protected]> escreveu: > É isso jovem? > > x <- seq(1,10) > y1 <- rnorm(10) > y2 <- rnorm(10) > y3 <- rnorm(10) > > par(mfrow=c(3,1)) > plot(y1 ~ x, > axes = F, > xlab = '', > ylab = '', > main = 'A', > type = 'l') > axis(2) > plot(y2 ~ x, > axes = F, > xlab = '', > ylab = '', > main = 'B', > type = 'l') > axis(2) > plot(y3 ~ x, > axes = F, > xlab = '', > ylab = '', > main = 'C', > type = 'l') > axis(1) > axis(2) > > (s,f,P) > Allaman > > _______________________________________________ > R-br mailing list > [email protected] > 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. >
_______________________________________________ R-br mailing list [email protected] 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.
