[R-es] Problema con el titulo de la leyenda en grafico con xyplot

[neo]

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>