Estimados eRReros,
Vuelvo a la carga con lattice.
Estoy haciendo este gráfico (os adjunto los datos y el resultado)
# cargamos el paquete
require(lattice)
# preliminares
textos<-c("n.s.","***","***","*","***","***","***","***","***","n.s."
,"***","n.s.","n.s.","*","**","n.s.","*","***","***","***","***")
# pinto el gráfico
dotplot(acu.g ~ trat | parc, data = ddsg
,layout = c(3,7)
,aspect=0.5
,type=c("p")
,ylab = "Number of emerged seedlings"
,xlab = "Treatment"
,panel=function(x,y,groups,subscripts,...)
{
panel.dotplot(x, y
,subscripts=subscripts,...
)
panel.average(x, y
,col = "grey", lwd = 1, horizontal = FALSE
)
#anotaciones
#donde las queremos
panel.text(1.5,max(y)*0.75, lab = textos[packet.number()])
}
,par.settings = list(axis.text= list(cex=1)
,layout.heights= list(strip=0.9)
,dot.symbol=
list(pch=1,col="black",alpha=0.5)
,strip.background=list(col="gray95")
)
,scales = list(x = "same",y = "free",tick.number = 3)
)
Los problemas son los siguientes:
1.- ¿Como puedo hacer para que me ponga un número determinado de ticks en
cada gráfico? Como veis en scales he puesto 3, pero no me hace caso ¿Quizá
haya que poner algo dentro de la función?¿Algo asà como panel.scales?
2.- ¿Como puedo hacer para que en todos los gráficos el eje y empiece en 0?
Claro al ponerle en scales y="free" el R se adapta a los datos ¿Como se
cambia eso?
3.- Si os fijáis, en el panel 12 el texto queda en medio del gráfico y no
desplazado ligeramente hacia arriba, aunque creo que esto se arreglará
cunado arregle los dos puntos anteriores.
Muchas gracias de antemano.
jaume.