<div dir="ltr"><div><font face="verdana, sans-serif">Hola,</font></div><div><font face="verdana, sans-serif"><br></font></div><div><font face="verdana, sans-serif">Aunque un poco más elaborado, el resultado me parece más limpio (adjunto gráfico).</font></div>
<div><font face="verdana, sans-serif">He utilizado gran parte del código de "pepecb".</font></div><div><font face="verdana, sans-serif"><br></font></div><div><font face="verdana, sans-serif">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()".</font></div>
<font face="verdana, sans-serif"><div><font face="verdana, sans-serif"><br></font></div>Saludos,</font><div><font face="verdana, sans-serif">Carlos Ortega</font></div><div><font face="verdana, sans-serif"><a href="http://www.qualityexcellence.es">www.qualityexcellence.es</a><br>
</font><div><div><font face="verdana, sans-serif"><br></font></div><div><font face="verdana, sans-serif">#---------------------------------------------------------</font></div><div><font face="verdana, sans-serif">library(lattice)</font></div>
<div><font face="verdana, sans-serif"># Separate panels for each "sol"</font></div><div><font face="verdana, sans-serif">colores<-c("black", "green", "red", "steelblue", "purple") </font></div>
<div><font face="verdana, sans-serif"><br></font></div><div><font face="verdana, sans-serif">dec.df <- mat[mat$sol=="dec",]</font></div><div><font face="verdana, sans-serif"><a href="http://dec.gr">dec.gr</a> <- xyplot(</font></div>
<div><font face="verdana, sans-serif"> V5 ~ dia</font></div><div><font face="verdana, sans-serif"> ,groups=con</font></div><div><font face="verdana, sans-serif"> ,data=dec.df</font></div>
<div><font face="verdana, sans-serif"> ,type="l", pch=1</font></div><div><font face="verdana, sans-serif"> ,main="DEC"</font></div><div><font face="verdana, sans-serif"> ,par.settings=simpleTheme(col=colores , col.line=colores)</font></div>
<div><font face="verdana, sans-serif"> ,auto.key=list(title= "Con",space="right",border=F,</font></div><div><font face="verdana, sans-serif"> columns=1,cex=0.7,lines=T,points=F,col=colores)</font></div>
<div><font face="verdana, sans-serif"> ,scales=list(x=list(relation='same'), y=list(relation='same'))</font></div><div><font face="verdana, sans-serif"> )</font></div><div><font face="verdana, sans-serif"><br>
</font></div><div><font face="verdana, sans-serif"><br></font></div><div><font face="verdana, sans-serif">lim.df <- mat[mat$sol=="lim",]</font></div><div><font face="verdana, sans-serif"><a href="http://lim.gr">lim.gr</a> <- xyplot(</font></div>
<div><font face="verdana, sans-serif"> V5 ~ dia</font></div><div><font face="verdana, sans-serif"> ,groups=con</font></div><div><font face="verdana, sans-serif"> ,data=lim.df</font></div><div><font face="verdana, sans-serif"> ,type="l", pch=1</font></div>
<div><font face="verdana, sans-serif"> ,main="LIM"</font></div><div><font face="verdana, sans-serif"> ,par.settings=simpleTheme(col=colores , col.line=colores)</font></div><div><font face="verdana, sans-serif"> ,auto.key=list(title= "Con",space="right",border=F,</font></div>
<div><font face="verdana, sans-serif"> columns=1,cex=0.7,lines=T,points=F,col=colores)</font></div><div><font face="verdana, sans-serif"> ,scales=list(x=list(relation='same'), y=list(relation='same'))</font></div>
<div><font face="verdana, sans-serif">)</font></div><div><font face="verdana, sans-serif"><br></font></div><div><font face="verdana, sans-serif"><br></font></div><div><font face="verdana, sans-serif">dol.df <- mat[mat$sol=="dol",]</font></div>
<div><font face="verdana, sans-serif"><a href="http://dol.gr">dol.gr</a> <- xyplot(</font></div><div><font face="verdana, sans-serif"> V5 ~ dia</font></div><div><font face="verdana, sans-serif"> ,groups=con</font></div>
<div><font face="verdana, sans-serif"> ,data=dol.df</font></div><div><font face="verdana, sans-serif"> ,type="l", pch=1</font></div><div><font face="verdana, sans-serif"> ,main="DOL"</font></div><div>
<font face="verdana, sans-serif"> ,par.settings=simpleTheme(col=colores , col.line=colores)</font></div><div><font face="verdana, sans-serif"> ,auto.key=list(title= "Con",space="right",border=F,</font></div>
<div><font face="verdana, sans-serif"> columns=1,cex=0.7,lines=T,points=F,col=colores)</font></div><div><font face="verdana, sans-serif"> ,scales=list(x=list(relation='same'), y=list(relation='same'))</font></div>
<div><font face="verdana, sans-serif">)</font></div><div><font face="verdana, sans-serif"><br></font></div><div><font face="verdana, sans-serif">#--------- arrange the three plots horizontally</font></div><div><font face="verdana, sans-serif">print(<a href="http://dec.gr">dec.gr</a>, position=c(0, 0.65, 1, 1), more=TRUE)</font></div>
<div><font face="verdana, sans-serif">print(<a href="http://lim.gr">lim.gr</a>, position=c(0, 0.33, 1, 0.68), more=TRUE)</font></div><div><font face="verdana, sans-serif">print(<a href="http://dol.gr">dol.gr</a>, position=c(0, 0.02, 1, 0.36))</font></div>
<div><font face="verdana, sans-serif"><br></font></div></div><div><br></div><div><img src="cid:ii_14058bd4108283d4" alt="Imágenes integradas 1" width="795" height="532"><br></div><div><br></div><div><br></div><div><br></div>
</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">El 7 de agosto de 2013 11:05, pepeceb <span dir="ltr"><<a href="mailto:pepeceb@yahoo.es" target="_blank">pepeceb@yahoo.es</a>></span> escribió:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hola Neo,<br>
esto es lo mejor que me ha salido. A ver si por lo menos te ayuda.<br>
Un saludo<br>
<br>
<br>
<br>
<br>
<br>
<br>
colores<-c("black", "green", "red", "steelblue", "purple") #creamos el vector de 5 colores que usaremos para unificar luego la leyenda y el grafico<br>
<br>
<br>
xyplot(V5 ~ dia | sol, groups=con, layout=c(1, 3), type= "l", pch=1,<br>
par.settings=simpleTheme(col=colores, col.line=colores),<br>
auto.key=list(title= "Con",space="right",border=F,<br>
columns=1,cex=0.7,lines=T,points=F,col=colores),<br>
scales=list(x=list(relation='same'), y=list(relation='same')), data=mat,<br>
strip.left = T,<br>
as.table = T,<br>
between = list(y = 0.5)<br>
<br>
)<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
---<br>
-----------------------------------------<br>
El mar, 6/8/13, neo <<a href="mailto:ericconchamunoz@gmail.com">ericconchamunoz@gmail.com</a>> escribió:<br>
<br>
Asunto: [R-es] Agrupar los terminos de la leyenda<br>
Para: "Lista R" <<a href="mailto:r-help-es@r-project.org">r-help-es@r-project.org</a>><br>
Fecha: martes, 6 de agosto, 2013 19:01<br>
<div><div class="h5"><br>
Estimada comunidad, hice un grafico<br>
con 3 paneles (asi creo que se dice,<br>
no?) usando lattice y tengo 15 diferentes curvas<br>
distribuidas entre<br>
estos 3 paneles, 5 curvas en cada uno de ellos.<br>
<br>
Cuando agrego una leyenda automatica me aparecen las 15<br>
curvas todas<br>
juntas y mezcladas las que corresponden a diferentes<br>
paneles, ya que las<br>
ordena de acuerdo a la condicion "groups=..." que uno indica<br>
en el<br>
codigo, y no de acuerdo a "| factor" que es lo que necesito.<br>
Ademas<br>
utiliza diferentes colores para las 16 diferentes curvas,<br>
pero yo<br>
necesito que use solo 5 y los mismos en cada panel, es<br>
decir, que para<br>
asignar los colores use "| factor" y no "groups=" que es lo<br>
que, parece,<br>
hace por defecto.<br>
<br>
Hay algun modo de hacer esto automaticamente ?<br>
<br>
O se debe hacer a mano ? si es asi, alguien sabe como se<br>
hace ?<br>
<br>
<br>
<br>
El codigo que use para el grafico:<br>
<br>
xYplot(mat[,5] ~ dia | sol, con, data=mat, xlab="Time<br>
(days)",<br>
ylab="Growth (as % of control)" ,type="l", layout=c(1,3),<br>
auto.key=list(space="right",columns=1))<br>
<br>
Adjunto el grafico que me sale y los datos.<br>
<br>
Muchas gracias de antemano ...<br>
<br>
Eric.<br>
<br>
</div></div> -----Adjunto en línea a continuación-----<br>
<br>
_______________________________________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>_______________________________________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><span style="font-family:verdana,sans-serif">Saludos,</span><br style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif">Carlos Ortega</span><br style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif"><a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a></span>
</div>