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

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.

Sí, son las 1:20am....
Ya me iba a dormir... :-).


El 5 de julio de 2014, 1:17, neo <ericconchamunoz en gmail.com
<mailto:ericconchamunoz en gmail.com>> escribió:

    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>

    <http://www.qualityexcellence.es>

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

    <mailto:ericconchamunoz en gmail.com>

    > <mailto: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>

    <mailto: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>

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




--
Saludos,
Carlos Ortega
www.qualityexcellence.es <http://www.qualityexcellence.es>

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

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