[R-es] Agrupar los terminos de la leyenda

Hola,

Aunque un poco más elaborado, el resultado me parece más limpio (adjunto
gráfico).
He utilizado gran parte del código de "pepecb".

Por otro lado (Neo) es recomendable que cuando incluyas una duda en la
lista des también referencia de su sesión (comando de R: sesionInfo). La
función que usas "xYplot()" es del paquete "Hmisc" y aunque está basada
en el paquete lattice, la función no es igual a la "xyplot()".

Saludos,
Carlos Ortega
www.qualityexcellence.es <http://www.qualityexcellence.es>

#---------------------------------------------------------
library(lattice)
# Separate panels for each "sol"
colores<-c("black", "green", "red", "steelblue", "purple") 

dec.df <- mat[mat$sol=="dec",]
dec.gr <http://dec.gr> <- xyplot(
                  V5 ~ dia
                 ,groups=con
                 ,data=dec.df
                 ,type="l", pch=1
                 ,main="DEC"
                 ,par.settings=simpleTheme(col=colores , col.line=colores)
                 ,auto.key=list(title= "Con",space="right",border=F,
                               
columns=1,cex=0.7,lines=T,points=F,col=colores)
                 ,scales=list(x=list(relation='same'),
y=list(relation='same'))
                 )


lim.df <- mat[mat$sol=="lim",]
lim.gr <http://lim.gr> <- xyplot(
  V5 ~ dia
  ,groups=con
  ,data=lim.df
  ,type="l", pch=1
  ,main="LIM"
  ,par.settings=simpleTheme(col=colores , col.line=colores)
  ,auto.key=list(title= "Con",space="right",border=F,
                 columns=1,cex=0.7,lines=T,points=F,col=colores)
  ,scales=list(x=list(relation='same'), y=list(relation='same'))
)


dol.df <- mat[mat$sol=="dol",]
dol.gr <http://dol.gr> <- xyplot(
  V5 ~ dia
  ,groups=con
  ,data=dol.df
  ,type="l", pch=1
  ,main="DOL"
  ,par.settings=simpleTheme(col=colores , col.line=colores)
  ,auto.key=list(title= "Con",space="right",border=F,
                 columns=1,cex=0.7,lines=T,points=F,col=colores)
  ,scales=list(x=list(relation='same'), y=list(relation='same'))
)

#--------- arrange the three plots horizontally
print(dec.gr <http://dec.gr>,  position=c(0, 0.65, 1, 1), more=TRUE)
print(lim.gr <http://lim.gr>, position=c(0, 0.33, 1, 0.68), more=TRUE)
print(dol.gr <http://dol.gr>, position=c(0, 0.02, 1, 0.36))


Imágenes integradas 1





El 7 de agosto de 2013 11:05, pepeceb <pepeceb en yahoo.es
<mailto:pepeceb en yahoo.es>> escribió:

    Hola Neo,
    esto es lo mejor que me ha salido. A ver si por lo menos te ayuda.
    Un saludo






    colores<-c("black", "green", "red", "steelblue", "purple") #creamos
    el vector de 5 colores que usaremos para unificar luego la leyenda y
    el grafico


    xyplot(V5 ~ dia | sol, groups=con, layout=c(1, 3), type= "l", pch=1,
       par.settings=simpleTheme(col=colores, col.line=colores),
    auto.key=list(title= "Con",space="right",border=F,
    columns=1,cex=0.7,lines=T,points=F,col=colores),
      scales=list(x=list(relation='same'), y=list(relation='same')),
    data=mat,
    strip.left = T,
                 as.table = T,
    between = list(y = 0.5)

    )







    ---
    -----------------------------------------
    El mar, 6/8/13, neo <ericconchamunoz en gmail.com
    <mailto:ericconchamunoz en gmail.com>> escribió:

     Asunto: [R-es] Agrupar los terminos de la leyenda
     Para: "Lista R" <r-help-es en r-project.org
    <mailto:r-help-es en r-project.org>>
     Fecha: martes, 6 de agosto, 2013 19:01

     Estimada comunidad, hice un grafico
     con 3 paneles (asi creo que se dice,
     no?) usando lattice y tengo 15 diferentes curvas
     distribuidas entre
     estos 3 paneles, 5 curvas en cada uno de ellos.

     Cuando agrego una leyenda automatica me aparecen las 15
     curvas todas
     juntas y mezcladas las que corresponden a diferentes
     paneles, ya que las
     ordena de acuerdo a la condicion "groups=..." que uno indica
     en el
     codigo, y no de acuerdo a "| factor" que es lo que necesito.
     Ademas
     utiliza diferentes colores para las 16 diferentes curvas,
     pero yo
     necesito que use solo 5 y los mismos en cada panel, es
     decir, que para
     asignar los colores use "| factor" y no "groups=" que es lo
     que, parece,
     hace por defecto.

     Hay algun modo de hacer esto automaticamente ?

     O se debe hacer a mano ? si es asi, alguien sabe como se
     hace ?



     El codigo que use para el grafico:

     xYplot(mat[,5] ~ dia | sol, con, data=mat, xlab="Time
     (days)",
     ylab="Growth (as % of control)" ,type="l", layout=c(1,3),
     auto.key=list(space="right",columns=1))

     Adjunto el grafico que me sale y los datos.

     Muchas gracias de antemano ...

     Eric.

     -----Adjunto en línea a continuación-----