R help es - Nov 2013 - 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>

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