[R-es] Cambio de "titulo" en barra de un grafico

Hola,

Otra opción es convertir la variable que define los paneles (dia) en
un factor. De esta forma, lattice::xyplot (y Hmisc::xYplot) nombra los
paneles de forma automática con el valor del nivel que corresponde. Si
además quieres que aparezca el nombre de la variable, puedes usar el
argumento `strip`.
Por otra parte, puedes definir el subconjunto de datos que te
interesan con el argumento `subset`. Este argumento se evalúa
directamente en `data`, con lo que el código queda algo más limpio.

Todo esto queda así:

library(Hmisc)

mfctr <- read.csv('datosgrafico.csv')
mfctr$dia <- factor(mfctr$dia)

xYplot(Cbind(mean,ll,ul) ~ con| dia,
       groups=sol,
       ## subconjunto de datos a representar
       subset = dia %in% c(1, 7),
       data=mfctr,
       ## la etiqueta de cada panel *también* incluye el nombre de la variable
       strip = strip.custom(strip.names = TRUE),
       auto.key=list(cex=0.8, x = .58, y = .7, corner = c(0,0), columns=1),
       xlab=list("Solvent concentration (%v/v)", cex=1.2),
       ylab=list("saturated / unsaturated ratio", cex=1.2),
       aspect=(1/3), ylim = c(-0.1, 0.7), scales=list(cex=1.1),
       par.settings= simpleTheme(pch=c(0,1,2,5), lwd = 1.5, cex = 1),
       layout=c(1,2))


Saludos.

Oscar.

-----------------------------------------------------------------
Oscar Perpiñán Lamigueiro
Dpto. Ingeniería Eléctrica (ETSIDI-UPM)
Grupo de Sistemas Fotovoltaicos (IES-UPM)
URL: http://oscarperpinan.github.io
Twitter: @oscarperpinan


El día 5 de julio de 2014, 1:08, Carlos Ortega
<cof en qualityexcellence.es> escribió:

Hola,

Esta es una manera de hacerlo (he incluido un par de cambios adicionales en
las etiquetas):

#---------------------------------
mfctr$dia.new <- paste("dia_",mfctr$dia, sep="")

xYplot (Cbind(mean,ll,ul) ~ con| dia.new
        , groups=sol
        , data=mfctr[mfctr$dia.new =="dia_1" | mfctr$dia.new =="dia_7", ]

        , auto.key=list(cex=0.8, x = .58, y = .7, corner = c(0,0),
columns=1)
        , xlab=list("Solvent concentration (%v/v)", cex=1.2, font=2)
        , ylab=list("saturated / unsaturated ratio", cex=1.2, font=2)
        , aspect=(1/3), ylim = c(-0.1, 0.7), scales=list(cex=1.1)

        , panel=function(...)
        {
          panel.xYplot(...,type =c("p"),lty =1.5, label =FALSE)
        }
        , par.settings= simpleTheme( pch=c(0,1,2,5) , cex = 1)
        , par.strip.text=list(col="blue", font=2, cex=1.2)
        , layout=c(1,2)
)
#---------------------------------

Saludos,
Carlos Ortega
www.qualityexcellence.es



El 4 de julio de 2014, 21:53, neo <ericconchamunoz en gmail.com> escribió:

Estimados gracias por todos los consejos para resolver el tema de la
importacion de una linea de texto, al final era lo que decia Francisco
respecto al mu que estaba en la linea y la codificacion de lenguaje.

Ahora tengo otra consulta, pero esta vez respecto a graficos con
lattice. Hago un grafico (adjunto) con el siguiente codigo:


xYplot (Cbind(mean,ll,ul) ~ con| dia, groups=sol, data=mfctr[mfctr$dia
==1 | mfctr$dia ==7,]
, auto.key=list(cex=0.8, x = .58, y = .7, corner = c(0,0), columns=1)
, xlab=list("Solvent concentration (%v/v)", cex=1.2),
ylab=list("saturated / unsaturated ratio", cex=1.2)
, aspect=(1/3), ylim = c(-0.1, 0.7), scales=list(cex=1.1)
, panel=function(...)
{
panel.xYplot(...,type =c("p"),lty =1.5, label =FALSE)
}
, par.settings= simpleTheme(
, pch=c(0,1,2,5) , cex = 1)
, layout=c(1,2)
)

y como se observa en el grafico adjunto, el "titulo" de ambos paneles
dice "dia", lo que es correcto. Sin embargo, como se ve en el codigo son
dos dias diferentes. Luego la pregunta es.

como podria hacer para que ese titulo diga efectivamente "dia 1" y "dia
7" que es mas conveniente ? he probado algunas cosas, pero no tengo
mucha experiencia con lattice.

adjunto tambien los datos para que puedan probar.



Saludos y muchas gracias.

eric.



--
Forest Engineer
Master in Environmental and Natural Resource Economics
Ph.D. student in Sciences of Natural Resources at La Frontera University
Member in AguaDeTemu2030, citizen movement for Temuco with green city
standards for living

Nota: Las tildes se han omitido para asegurar compatibilidad con algunos
lectores de correo.

--
Saludos,
Carlos Ortega
www.qualityexcellence.es

        [[alternative HTML version deleted]]