Una posible solución
2 views
Skip to first unread message
Odín Morón
Apr 30, 2012, 3:14:18 PM4/30/12
to gur...@googlegroups.com
No se si es esto a lo que refieres:
#Generacion de datos
rep(1:6,each=10)->A1
A2<-vector()
for(i in 1:6) A2<-c(A2,rnorm(10,runif(1,0,1/i),0.1))
# El grafico en cuestion
boxplot(A2~A1)#Si es necesario as.factor(A1)
lines(tapply(X=A2,INDEX=A1,FUN=median),col='red')#Una linea roja uniendo las medianas
lines(tapply(X=A2,INDEX=A1,FUN=mean),type='b',pch=3)#Una linea negra uniendo las medias simbolizadas con una cruz
Espero que te sea de ayuda.
Odín Morón
#Generacion de datos
rep(1:6,each=10)->A1
A2<-vector()
for(i in 1:6) A2<-c(A2,rnorm(10,runif(1,0,1/i),0.1))
# El grafico en cuestion
boxplot(A2~A1)#Si es necesario as.factor(A1)
lines(tapply(X=A2,INDEX=A1,FUN=median),col='red')#Una linea roja uniendo las medianas
lines(tapply(X=A2,INDEX=A1,FUN=mean),type='b',pch=3)#Una linea negra uniendo las medias simbolizadas con una cruz
Espero que te sea de ayuda.
Odín Morón
Pablo García Sánchez
May 1, 2012, 1:25:33 PM5/1/12
to gur...@googlegroups.com
Tomo nota y me lo apunto en mi ficherico navaja suiza :)
Reply all
Reply to author
Forward
0 new messages