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]]

