[R-es] Cambio de "titulo" en barra de un grafico
Oscar Perpiñan
oscar.perpinan en upm.es
Dom Jul 6 17:09:43 CEST 2014
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.
>>
>> _______________________________________________
>> R-help-es mailing list
>> R-help-es en r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
> [[alternative HTML version deleted]]
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
Más información sobre la lista de distribución R-help-es