[R-es] Agrupar los terminos de la leyenda

[pepeceb]

Bueno, una pequeña vuelta de tuerca más usando ggplot.. Aunque no quedó tan limpio como el de Carlos (gran resolucion) tambien te sirve.
Un saludo



library(ggplot2)
dec.df <- mat[mat$sol=="dec",]
lim.df <- mat[mat$sol=="lim",]
dol.df <- mat[mat$sol=="dol",]

dec.dr<-qplot(dia,V5,sol,data=dec.df,color=con2,geom=c("line"),facets=.~sol)

lim.dr <- qplot(dia,V5,sol,data=lim.df,color=con2,geom=c("line"),facets=.~sol)
dol.dr <- qplot(dia,V5,sol,data=dol.df,color=con2,geom=c("line"),facets=.~sol)


grid.newpage() # Open a new page on grid device

pushViewport(viewport(layout = grid.layout(3, 1))) # Assign to device viewport with 2 by 2 grid layout

print(dec.dr, vp = viewport(layout.pos.row = 1, layout.pos.col = 1:1))
print(lim.dr, vp = viewport(layout.pos.row = 2, layout.pos.col = 1:1))
print(dol.dr, vp = viewport(layout.pos.row = 3, layout.pos.col = 1:1, width=0.3, height=0.3, x=0.8, y=0.8))

Cree con2 para convertir con en factor.

Saludos










Ok, lo hare, aunque no tenia idea que existia y era relevante la
informacion de la sesion ... esa Y mayuscula en xyplot se me paso de
intentos anteriores, sorry ... gracias a todos por su tiempo y las
sugerencias.


Saludos, Eric.



On 08/07/2013 08:32 AM, Carlos Ortega wrote:
> 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))
> 
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: no disponible
Type: image/jpeg
Size: 42079 bytes
Desc: image001.jpg
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20130809/d509a490/attachment-0001.jpe>