neo
2013-Nov-16 21:59 UTC
[R-es] Problema con el titulo de la leyenda en grafico con xyplot
Estimados, tengo un grafico al que debo anexar la leyenda en el costado derecho. Mi problema es que el titulo de la leyenda debe decir "Concentration (mM)" el que es muy largo y la ultima M sale cortada. No puedo abreviar la palabra porque justamente me rechazaron el grafico por que estaba abreviada esa palabra. Aqui pego el codigo con el que se hacen los graficos y anexo un archivo con los datos para que prueben ... ya he probado varias cosas que me imagino que pueden funcionar pero no pasa nada. Muchas gracias, Slds, eric. library(lattice) trellis.device(color=F) # Separate panels for each "sol" colores<-c("black", "black", "black", "black", "black") dec.df <- mat[mat$sol=="dec",] dec.gr <- xyplot( V5 ~ dia ,groups=con ,data=dec.df ,type="l", pch=1 ,main=list(label="Dec", cex=0.9, x = .175, y = -4.5) ,par.settings=simpleTheme(col=colores , col.line=colores) ,auto.key=list(title="Concentration(mM)",space="right",border=F, columns=1,cex=0.8,lines=T,points=F,col=colores) ,scales=list(x=list(relation='same'), y=list(relation='same'), cex=1.2) ,ylab="" ,xlab="" ,ylim=c(-0.2,180) ,abline=list(a=100,b=0) ) lim.df <- mat[mat$sol=="lim",] lim.gr <- xyplot( V5 ~ dia ,groups=con ,data=lim.df ,type="l", pch=1 ,main=list(label="Lim", cex=0.9, x = .2, y = -4.5) ,par.settings=simpleTheme(col=colores , col.line=colores) ,auto.key=list(title= "Concent. (mM)",space="right",border=F, columns=1,cex=0.8,lines=T,points=F,col=colores) ,scales=list(x=list(relation='same'), y=list(relation='same'), cex=1.2) ,xlab="" ,ylab=list(label="Growth (% of control)",cex=1.2) ,ylim=c(-0.2,180) ,abline=list(a=100,b=0) ) dol.df <- mat[mat$sol=="dol",] dol.gr <- xyplot( V5 ~ dia ,groups=con ,data=dol.df ,type="l", pch=1 ,main=list(label="Dol", cex=0.9, x = .175, y = -4.5) ,par.settings=simpleTheme(col=colores , col.line=colores) ,auto.key=list(title= "Concent. (mM)",space="right",border=F, columns=1,cex=0.8,lines=T,points=F,col=colores) ,scales=list(x=list(relation='same'), y=list(relation='same'), cex=1.2) ,xlab=list(label="Time (days)",cex=1.2) ,ylab="" ,ylim=c(-0.2,180) ,abline=list(a=100,b=0) ) #--------- arrange the three plots horizontally print(dec.gr, position=c(0.029 ,0.6 ,1 ,1 ), more=TRUE) print(lim.gr, position=c(0 ,0.3 ,1 ,0.7 ), more=TRUE) print(dol.gr, position=c(0.029 ,0 ,1 ,0.4 )) ------------ próxima parte ------------ A non-text attachment was scrubbed... Name: mat.csv Type: text/csv Size: 4644 bytes Desc: no disponible URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20131116/000fb9ca/attachment.bin>
Carlos Ortega
2013-Nov-16 23:23 UTC
[R-es] Problema con el titulo de la leyenda en grafico con xyplot
Hola, Simplemente tienes que hacer los gráficos un poco más cortos a lo largo del eje x. Eso lo consigues con las últimas sentencias de "print()". #--------- arrange the three plots horizontally print(dec.gr, position=c(0.029 ,0.6 ,*0.96 ,0.96* ), more=TRUE) print(lim.gr, position=c(0 ,0.3 ,*0.96* ,0.7 ), more=TRUE) print(dol.gr, position=c(0.029 ,0 ,*0.96* ,0.4 )) Saludos, Carlos Ortega www.qualityexcellence.es El 16 de noviembre de 2013 22:59, neo <ericconchamunoz@gmail.com> escribió:> Estimados, tengo un grafico al que debo anexar la leyenda en el costado > derecho. Mi problema es que el titulo de la leyenda debe decir > "Concentration (mM)" el que es muy largo y la ultima M sale cortada. No > puedo abreviar la palabra porque justamente me rechazaron el grafico por > que estaba abreviada esa palabra. > > Aqui pego el codigo con el que se hacen los graficos y anexo un archivo > con los datos para que prueben ... ya he probado varias cosas que me > imagino que pueden funcionar pero no pasa nada. > > Muchas gracias, > > Slds, eric. > > > > > library(lattice) > trellis.device(color=F) > # Separate panels for each "sol" > colores<-c("black", "black", "black", "black", "black") > > dec.df <- mat[mat$sol=="dec",] > dec.gr <- xyplot( > V5 ~ dia > ,groups=con > ,data=dec.df > ,type="l", pch=1 > ,main=list(label="Dec", cex=0.9, x = .175, y = -4.5) > ,par.settings=simpleTheme(col=colores , col.line=colores) > > ,auto.key=list(title="Concentration(mM)",space="right",border=F, > > columns=1,cex=0.8,lines=T,points=F,col=colores) > ,scales=list(x=list(relation='same'), > y=list(relation='same'), cex=1.2) > ,ylab="" > ,xlab="" > ,ylim=c(-0.2,180) > ,abline=list(a=100,b=0) > ) > > > lim.df <- mat[mat$sol=="lim",] > lim.gr <- xyplot( > V5 ~ dia > ,groups=con > ,data=lim.df > ,type="l", pch=1 > ,main=list(label="Lim", cex=0.9, x = .2, y = -4.5) > ,par.settings=simpleTheme(col=colores , col.line=colores) > ,auto.key=list(title= "Concent. > (mM)",space="right",border=F, > > columns=1,cex=0.8,lines=T,points=F,col=colores) > ,scales=list(x=list(relation='same'), > y=list(relation='same'), cex=1.2) > ,xlab="" > ,ylab=list(label="Growth (% of control)",cex=1.2) > ,ylim=c(-0.2,180) > ,abline=list(a=100,b=0) > ) > > > dol.df <- mat[mat$sol=="dol",] > dol.gr <- xyplot( > V5 ~ dia > ,groups=con > ,data=dol.df > ,type="l", pch=1 > ,main=list(label="Dol", cex=0.9, x = .175, y = -4.5) > ,par.settings=simpleTheme(col=colores , col.line=colores) > ,auto.key=list(title= "Concent. > (mM)",space="right",border=F, > > columns=1,cex=0.8,lines=T,points=F,col=colores) > ,scales=list(x=list(relation='same'), > y=list(relation='same'), cex=1.2) > ,xlab=list(label="Time (days)",cex=1.2) > ,ylab="" > ,ylim=c(-0.2,180) > ,abline=list(a=100,b=0) > > ) > > #--------- arrange the three plots horizontally > print(dec.gr, position=c(0.029 ,0.6 ,1 ,1 ), more=TRUE) > print(lim.gr, position=c(0 ,0.3 ,1 ,0.7 ), more=TRUE) > print(dol.gr, position=c(0.029 ,0 ,1 ,0.4 )) > > > _______________________________________________ > R-help-es mailing list > R-help-es@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es > >-- Saludos, Carlos Ortega www.qualityexcellence.es [[alternative HTML version deleted]]
Possibly Parallel Threads
- Agrupar los terminos de la leyenda
- Agrupar los terminos de la leyenda
- Es posible controlar el tipo de linea que se agrega con abline() en un grafico ?
- Agrupar los terminos de la leyenda
- Es posible controlar el tipo de linea que se agrega con abline() en un grafico ?