R help es - Jul 2014 - Cambio de "titulo" en barra de un grafico

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.
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: 03ctr_con16copia.png
Type: image/png
Size: 19503 bytes
Desc: no disponible
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20140704/85d94dd3/attachment-0001.png>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: datosgrafico.csv
Type: text/csv
Size: 1358 bytes
Desc: no disponible
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20140704/85d94dd3/attachment-0001.bin>

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@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@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>

-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es

	[[alternative HTML version deleted]]

Muchas gracias Carlos, mas aun pues en españa es mas de medianoche del 
viernes, no ?

eric.



On Fri 04 Jul 2014 19:08:24 CLT, Carlos Ortega wrote:
> 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 <http://www.qualityexcellence.es>
>
>
>
> El 4 de julio de 2014, 21:53, neo <ericconchamunoz en gmail.com
> <mailto: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 <mailto:R-help-es en r-project.org>
>     https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es <http://www.qualityexcellence.es>
--
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.

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
>