
Enquanto o Walmes não posta algo, vai se contentando com isso. Dê uma olhada na ggplot2, pois é outra opção à graphics. y <- rnorm(20) x <- rep(c(0,10,20,30),rep(5,4)) medias <- tapply(y,x,mean) desv <- tapply(y,x,sd) plot(tapply(y,x,mean) ~ seq(0,30,10),ylim=c(-2,2)) segments(0,medias[1],0,medias[1]-desv[1]) segments(0,medias[1],0,medias[1]+desv[1]) segments(10,medias[2],10,medias[2]-desv[2]) segments(10,medias[2],10,medias[2]+desv[2]) segments(20,medias[3],20,medias[3]-desv[3]) segments(20,medias[3],20,medias[3]+desv[3]) segments(30,medias[4],30,medias[4]-desv[4]) segments(30,medias[4],30,medias[4]+desv[4]) \begin{signature} <<>>= Prof. Dr. Ivan Bezerra Allaman Universidade Estadual de Santa Cruz Departamento de Ciências Exatas e Tecnológicas Ilhéus/BA - Brasil Fone: +55 73 3680-5596 E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com @ \end{signature}

Obrigado Ivan pela grande ajuda!!! Realmente não entendi como o pacote gplots não tem a capacidade de manter a proporção nos eixos. Vou aproveitar e conferir esse novo pacote que você sugeriu! Att, Stephan Em 7/9/2012 19:01, Ivan Bezerra Allaman escreveu:
Enquanto o Walmes não posta algo, vai se contentando com isso. Dê uma olhada na ggplot2, pois é outra opção à graphics.
y <- rnorm(20) x <- rep(c(0,10,20,30),rep(5,4)) medias <- tapply(y,x,mean) desv <- tapply(y,x,sd) plot(tapply(y,x,mean) ~ seq(0,30,10),ylim=c(-2,2)) segments(0,medias[1],0,medias[1]-desv[1]) segments(0,medias[1],0,medias[1]+desv[1]) segments(10,medias[2],10,medias[2]-desv[2]) segments(10,medias[2],10,medias[2]+desv[2]) segments(20,medias[3],20,medias[3]-desv[3]) segments(20,medias[3],20,medias[3]+desv[3]) segments(30,medias[4],30,medias[4]-desv[4]) segments(30,medias[4],30,medias[4]+desv[4]) * * \begin{signature} <<>>= Prof. Dr. Ivan Bezerra Allaman Universidade Estadual de Santa Cruz Departamento de Ciências Exatas e Tecnológicas Ilhéus/BA - Brasil Fone: +55 73 3680-5596 E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com @ \end{signature}
_______________________________________________ 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.
-- *************************************************** STEPHAN M. CARVALHO "Honeybee protection and ecotoxicology" Universidade Estadual Paulista Centro de Estudo de Insetos Sociais Av. 24A, 1515 Bela Vista 13.506-900 Rio Claro/SP Brazil smalfitano@uol.com.br msn: pefasmc@hotmail.com / Skype: smalfitano +55 19 3526-4284 (university) +55 19 3534-8523 (fax) +55 35 9103-9822 (mobile) +55 35 9949-0707 (mobile) Antes de imprimir, pense no ambiente! Before printing, think in the environment! Avant d'imprimer, pensez à l'environnement! ***************************************************
participantes (2)
-
Ivan Bezerra Allaman
-
Stephan M. CARVALHO