[R-es] convertir objetos con multiples listas en vector

Jorge I Velez jorgeivanvelez en gmail.com
Mie Oct 31 21:19:11 CET 2012


Federico,

Usa

unlist(tulista)

para obtener lo que necesitas.

Saludos,
Jorge.-

Sent from my phone. Please excuse my brevity and misspelling.

On Nov 1, 2012, at 6:46 AM, federico bentos <> wrote:

>
>
> Hola, tengo una duda que seguramente se resuelva facilmente. Obtuve con lapply una variable de lista que posee aprox 50000 elementos con tamaño 1, quisiera convertirla a una variable que sea de tamaño 50000, que deje de ser un lista para tener dataframe$variable con las 50000 obs.
>
>
>
> ________________________________
> De: "r-help-es-request en r-project.org" <r-help-es-request en r-project.org>
> Para: r-help-es en r-project.org
> Enviado: miércoles, 31 de octubre de 2012 12:22
> Asunto: Resumen de R-help-es, Vol 44, Envío 40
>
> Envíe los mensajes para la lista R-help-es a
>     r-help-es en r-project.org
>
> Para subscribirse o anular su subscripción a través de la WEB
>     https://stat.ethz.ch/mailman/listinfo/r-help-es
>
> O por correo electrónico, enviando un mensaje con el texto "help" en
> el asunto (subject) o en el cuerpo a:
>     r-help-es-request en r-project.org
>
> Puede contactar con el responsable de la lista escribiendo a:
>     r-help-es-owner en r-project.org
>
> Si responde a algún contenido de este mensaje, por favor, edite la
> linea del asunto (subject) para que el texto sea mas especifico que:
> "Re: Contents of R-help-es digest...". Además, por favor, incluya en
> la respuesta sólo aquellas partes del mensaje a las que está
> respondiendo.
>
>
> Asuntos del día:
>
>    1. Problemas con wheezy (José Trujillo Carmona)
>    2. Re: Gráfico von varias variables (Mauricio Monsalvo)
>    3. Re: Gráfico von varias variables (Carlos Ortega)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Wed, 31 Oct 2012 14:04:28 +0100
> From: José Trujillo Carmona <trujillo en unex.es>
> To: r-help-es <r-help-es en r-project.org>
> Subject: [R-es] Problemas con wheezy
> Message-ID: <509121DC.8000807 en unex.es>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Tengo instalado Debian 7 Wheezy, puesto que ya esta congelada y pronto
> será estable.
>
> La instalación y mantenimiento de R lo hago desde los repositorios:
>
> deb http://cran.es.r-project.org/bin/linux/debian squeeze-cran/
>
> Pero llevo un tiempo con una quincena de paquetes "actualizables",
> concretamente parece que toca pasar de la versión 2.15.1 a la 2.15.2;
> pero hay un conflicto en las dependencias que no consigo desmadejar.
> R-core intenta eliminar paquetes de los que a la vez depende y no sale
> adelante ninguna acualización.
>
> ¿Alguien más tiene este problema?
>
>
>
> ------------------------------
>
> Message: 2
> Date: Wed, 31 Oct 2012 10:53:07 -0300
> From: Mauricio Monsalvo <m.monsalvo en gmail.com>
> To: Carlos Ortega <cof en qualityexcellence.es>
> Cc: r-help-es <r-help-es en r-project.org>
> Subject: Re: [R-es] Gráfico von varias variables
> Message-ID:
>     <CAKXoZH-HEuKkN1ORynKv+Ott1JOYrcfFuaP-g8gcWvLaBF3Lbw en mail.gmail.com>
> Content-Type: text/plain
>
> Muchas gracias a todos!
> Todas las soluciones me resultaron útiles. Comparto que la clave era el
> add=T para la segunda barra. Me quedó pendiente ordenar el gráfico por la
> línea de Con12Meses (que va sobre el primer eje) y ahora noto que me faltan
> las referencias. ¿Es lo mismo que ponerlas en uno? ¿Pero en cuál?
> Mauricio
>
>
>
> El 31 de octubre de 2012 06:52, Carlos Ortega
> <cof en qualityexcellence.es>escribió:
>
>> Hola,
>>
>> Incluyo todo el código destacando algunas mejoras que creo que añaden
>> coherencia a lo que se representa en cada eje, además de alguna mejora
>> estética.
>>
>> ########################################################
>> par(*mar=c(4,4,4,4)*,            #
>>      omi=c(0.1,0.1,0.1,0.1),    #
>>      las=1,                     #
>>      mex=0.5,                   #
>>      cex.lab = 1,               #
>>      cex.axis=0.7)              # el tamaño de las leyendas
>>
>> ########################
>> # Barplots - Eje Primario
>> barplot(
>>          caps$personas,
>>          names.ar=caps$CAPS,
>>          col="blue", border=F, space=.01,* axes=F, ylim=c(0,
>> 1.20*max(caps$personas)*)
>>          )
>> *axis(2, col.axis="blue") # Separo el eje para darle color azul como el
>> del barplot.1*
>> *#*par(new=T)
>>
>> # crea la barra de caps$PersonasRCGV, pero cambia los ejes porque el
>> resultado gráfico no es
>> # coherente con los valores (caps$PersonasRCVG siempre es un valor menor
>> que caps$personas...)
>> barplot(caps$PersonasRCVG, axes=F, ann=F,
>>          col="grey", border=F, space=.01, *add=T)*
>>
>> #######################
>> # Líneas - Eje Secundario
>> par(new=T)
>> plot(caps$Con12Meses, axes=F, ann=F, type="n")
>> *#*points(caps$Con12Meses,type="l",col="black")       # Crea la línea
>> paracaps$Con12Meses (por la cual quiero ordenar)
>> *#*points(caps$Con12Meses,  pch=16, col="black")*  *    # agrega puntos
>> negros rellenos a la línea
>> *points(caps$Con12Meses,  pch=16, col="black")  # Los dos pasos
>> anteriores los puedo hacer en uno.*
>> par(new=T)
>> plot(caps$prevalencia, axes=F, ann=F, type="n")
>> *axis(4, col.axis="tomato", col.lab="black" )   *                      #
>> Crea el eje secundario  *y le doy color rojo como una de las líneas. *
>> *#*points(caps$prevalencia,type="l",col="red")       # Crea la línea
>> sobre el eje secundario
>> #points(caps$prevalencia,  pch=16, col="red")      # agrega puntos rojos
>> rellenos a la línea
>> *points(caps$prevalencia,  type="b", pch=16, col="red") **# Los dos pasos
>> anteriores los puedo hacer en uno.*
>> text(caps$prevalencia, labels=paste(caps$prevalencia), pos=3, col="red", )
>> # si se quiere poner la prevalencia en el gráfico.
>> *box()*
>>
>> ########################################################
>>
>>
>> Saludos,
>> Carlos Ortega
>> www.qualityexcellence.es
>>
>> El 31 de octubre de 2012 10:24, Xavi de Blas <xaviblas en gmail.com>escribió:
>>
>> Perdón por el autobombo pero aquí tengo un gráfico con 4 variables que
>>> me satisface:
>>>
>>> http://chronojump.org/server/images/tf_by_level_sex_jumptype.png
>>>
>>> el código está aquí:
>>>
>>>
>>> http://git.gnome.org/browse/chronojump/tree/chronojump_server/r-sqlite/tf_by_level_sex_jumptype.R
>>>
>>> A ver si te sirve. Saludos
>>>
>>>
>>>
>>> 2012/10/31 Carlos Ortega <cof en qualityexcellence.es>:
>>>> Hola,
>>>>
>>>> La clave está destacada en utilizar "*add=T*" en el segundo barplot para
>>>> superponerle al primero en vez de utilizar "par(new=T)".
>>>> El destaco los cambios en tu mismo código:
>>>>
>>>> par(mar=c(4,4,3,1),            #
>>>>      omi=c(0.1,0.1,0.1,0.1),    #
>>>>      las=1,                     #
>>>>      mex=0.5,                   #
>>>>      cex.lab = 1,               #
>>>>      cex.axis=0.7)              # el tamaño de las leyendas
>>>> barplot(caps$personas,
>>>>          names.ar=caps$CAPS,
>>>>          col="blue", border=F, space=.01)
>>>> *#par(new=T)*
>>>> barplot(caps$PersonasRCVG, axes=F, ann=F, type="n",
>>>>          # crea la barra de caps$PersonasRCGV, pero cambia los ejes
>>> porque
>>>> el resultado gráfico no es
>>>>          # coherente con los valores (caps$PersonasRCVG siempre es un
>>> valor
>>>> menor que
>>>>          #                           caps$personas...)
>>>>          col="grey", border=F, space=.01*, add=T*)
>>>>
>>>> Saludos,
>>>> Carlos Ortega
>>>> www.qualityexcellence.es
>>>>
>>>> El 31 de octubre de 2012 05:32, Mauricio Monsalvo
>>>> <m.monsalvo en gmail.com>escribió:
>>>>
>>>>> Estimados amigos,
>>>>> Tengo el siguiente set de datos:
>>>>> caps <- datos[datos$NombreDepartamento=="LANUS", c("CAPS", "personas",
>>>>> "PersonasRCVG", "Con12Meses")]
>>>>> caps$prevalencia <- round(caps$PersonasRCVG/caps$personas*100,1)
>>>>>    caps
>>>>>
>>>>>       CAPS personas PersonasRCVG Con12Meses prevalencia
>>>>> 2345 2345     1347          132        211         9.8
>>>>> 2363 2363    17272         1602       2320         9.3
>>>>> 2341 2341     1771          241        220        13.6
>>>>> 2361 2361     2725          371        466        13.6
>>>>> 2342 2342     4590          538       3615        11.7
>>>>> 2347 2347    16610         1678       5884        10.1
>>>>> 2348 2348     2961          373        883        12.6
>>>>> 2350 2350     8132          990       1180        12.2
>>>>> 2351 2351     2205          332        208        15.1
>>>>> 2355 2355     4059          409        548        10.1
>>>>> 2364 2364     5175          517        696        10.0
>>>>> 2349 2349     1111          158        459        14.2
>>>>> 2360 2360      809          127        190        15.7
>>>>> 2362 2362     3112          358        754        11.5
>>>>> 2365 2365     2522          340        271        13.5
>>>>> 2343 2343    12136         1112       5016         9.2
>>>>> 2344 2344    20956         2365       4161        11.3
>>>>> 2346 2346     2640          273       1062        10.3
>>>>> 2357 2357     3143          458        682        14.6
>>>>> 2358 2358     3432          337        532         9.8
>>>>> 2340 2340     1733          288        384        16.6
>>>>> 2352 2352    17358         1694       3511         9.8
>>>>> 2356 2356    15034         1780      10990        11.8
>>>>> 2359 2359    15907         1731       6464        10.9
>>>>> 8924 8924      639          160        103        25.0
>>>>> 8929 8929      734          107         66        14.6
>>>>> 8937 8937     2688          527        414        19.6
>>>>> 8932 8932      858           93         96        10.8
>>>>>
>>>>> Y quiero graficar las 4 variables juntas. Creo que casi casi casi lo
>>> logro,
>>>>> salvo por (a) la barra de caps$PersonasRCVG, que pareciera cambia los
>>>>> valores del eje Y a otra escala... creo... y (b) porque me falta
>>> ordenar el
>>>>> gráfico por la línea de caps$Con12Meses (de mayor a menor).
>>>>> Va mi mejor intento:
>>>>> par(mar=c(4,4,3,1),            #
>>>>>      omi=c(0.1,0.1,0.1,0.1),    #
>>>>>      las=1,                     #
>>>>>      mex=0.5,                   #
>>>>>      cex.lab = 1,               #
>>>>>      cex.axis=0.7)              # el tamaño de las leyendas
>>>>> barplot(caps$personas,
>>>>>          names.ar=caps$CAPS,
>>>>>          col="blue", border=F, space=.01)
>>>>> par(new=T)
>>>>> barplot(caps$PersonasRCVG, axes=F, ann=F, type="n", # crea la barra de
>>>>> caps$PersonasRCGV, pero cambia los ejes porque el resultado gráfico no
>>> es
>>>>> coherente con los valores (caps$PersonasRCVG siempre es un valor menor
>>> que
>>>>> caps$personas...)
>>>>>          col="grey", border=F, space=.01)
>>>>> par(new=T)
>>>>> plot(caps$Con12Meses, axes=F, ann=F, type="n")
>>>>> points(caps$Con12Meses,type="l",col="black")       # Crea la línea para
>>>>> caps$Con12Meses (por la cual quiero ordenar)
>>>>> points(caps$Con12Meses,  pch=16, col="black")      # agrega puntos
>>> negros
>>>>> rellenos a la línea
>>>>> par(new=T)
>>>>> plot(caps$prevalencia, axes=F, ann=F, type="n")
>>>>> axis(4)                                           # Crea el eje
>>> secundario
>>>>> points(caps$prevalencia,type="l",col="red")       # Crea la línea
>>> sobre el
>>>>> eje secundario
>>>>> points(caps$prevalencia,  pch=16, col="red")      # agrega puntos rojos
>>>>> rellenos a la línea
>>>>> text(caps$prevalencia, labels=paste(caps$prevalencia), pos=3,
>>> col="red", )
>>>>> # si se quiere poner la prevalencia en el gráfico.
>>>>> ¿Podrían por favor ayudarme con la solución? Les juro que renegué como
>>> loco
>>>>> para llegar a este punto y creo que ya no "veo" más nada en las ayudas!
>>>>> Además, ¿no hay una forma más "simple" de hacerlo?
>>>>> Muchas gracias, como siempre. (Algún día aprenderé...)
>>>>> --
>>>>> Mauricio
>>>>>
>>>>>          [[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
>>>>
>>>>
>>>> --
>>>> 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
>>
>>
>>
>> --
>> Saludos,
>> Carlos Ortega
>> www.qualityexcellence.es
>
>
>
> --
> Mauricio
>
>     [[alternative HTML version deleted]]
>
>
>
> ------------------------------
>
> Message: 3
> Date: Wed, 31 Oct 2012 15:21:43 +0100
> From: Carlos Ortega <cof en qualityexcellence.es>
> To: Mauricio Monsalvo <m.monsalvo en gmail.com>
> Cc: r-help-es <r-help-es en r-project.org>
> Subject: Re: [R-es] Gráfico von varias variables
> Message-ID:
>     <CAOKbq8go+E1CPwyNdLhVT4W9ZzBnRe8zaeSo0595TLx1VJtP0w en mail.gmail.com>
> Content-Type: text/plain
>
> Hola,
>
> Para ordenar todo por la columna "Con12Meses" se puede hacer ordenando
> inicialmente el data.frame "caps" y luego ya generar todos los gráficos.
> Adjunto el código. Tan sólo cambia una línea (la destaco en rojo):
>
>
> ##############################################
> *#ordeno por columna "Con12Meses"*
> *caps <- caps[order(caps$Con12Meses, decreasing=T),]*
>
> par(mar=c(4,4,4,4),            #
>     omi=c(0.1,0.1,0.1,0.1),    #
>     las=1,                     #
>     mex=0.5,                   #
>     cex.lab = 1,               #
>     cex.axis=0.7)              # el tamaño de las leyendas
> barplot(
>         caps$personas,
>         names.ar=caps$CAPS,
>         col="blue", border=F, space=.01, axes=F, ylim=c(0,
> 1.20*max(caps$personas))
>         )
> axis(2, col.axis="blue")
> #par(new=T)
> # crea la barra de caps$PersonasRCGV, pero cambia los ejes porque el
> resultado gráfico no es
> # coherente con los valores (caps$PersonasRCVG siempre es un valor menor
> que caps$personas...)
> barplot(caps$PersonasRCVG, axes=F, ann=F,
>         col="grey", border=F, space=.01, add=T)
> par(new=T)
> plot(caps$Con12Meses, axes=F, ann=F, type="n")
> points(caps$Con12Meses,type="l",col="black")       # Crea la línea
> paracaps$Con12Meses (por la cual quiero ordenar)
> points(caps$Con12Meses,  pch=16, col="black")      # agrega puntos negros
> rellenos a la línea
> par(new=T)
> plot(caps$prevalencia, axes=F, ann=F, type="n")
> axis(4, col.axis="tomato", col.lab="black" )                         # Crea
> el eje secundario
> #points(caps$prevalencia,type="l",col="red")       # Crea la línea sobre el
> eje secundario
> #points(caps$prevalencia,  pch=16, col="red")      # agrega puntos rojos
> rellenos a la línea
> points(caps$prevalencia,  type="b", pch=16, col="red")
> text(caps$prevalencia, labels=paste(caps$prevalencia), pos=3, col="red", )
> # si se quiere poner la prevalencia en el gráfico.
> box()
> ######################### FIN ######################
>
>
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
> El 31 de octubre de 2012 14:53, Mauricio Monsalvo
> <m.monsalvo en gmail.com>escribió:
>
>> Muchas gracias a todos!
>> Todas las soluciones me resultaron útiles. Comparto que la clave era el
>> add=T para la segunda barra. Me quedó pendiente ordenar el gráfico por la
>> línea de Con12Meses (que va sobre el primer eje) y ahora noto que me faltan
>> las referencias. ¿Es lo mismo que ponerlas en uno? ¿Pero en cuál?
>> Mauricio
>>
>>
>>
>> El 31 de octubre de 2012 06:52, Carlos Ortega <cof en qualityexcellence.es>escribió:
>>
>> Hola,
>>>
>>> Incluyo todo el código destacando algunas mejoras que creo que añaden
>>> coherencia a lo que se representa en cada eje, además de alguna mejora
>>> estética.
>>>
>>> ########################################################
>>> par(*mar=c(4,4,4,4)*,            #
>>>       omi=c(0.1,0.1,0.1,0.1),    #
>>>      las=1,                     #
>>>      mex=0.5,                   #
>>>      cex.lab = 1,               #
>>>      cex.axis=0.7)              # el tamaño de las leyendas
>>>
>>> ########################
>>> # Barplots - Eje Primario
>>> barplot(
>>>          caps$personas,
>>>          names.ar=caps$CAPS,
>>>          col="blue", border=F, space=.01,* axes=F, ylim=c(0,
>>> 1.20*max(caps$personas)*)
>>>          )
>>> *axis(2, col.axis="blue") # Separo el eje para darle color azul como el
>>> del barplot.1*
>>> *#*par(new=T)
>>>
>>> # crea la barra de caps$PersonasRCGV, pero cambia los ejes porque el
>>> resultado gráfico no es
>>> # coherente con los valores (caps$PersonasRCVG siempre es un valor menor
>>> que caps$personas...)
>>> barplot(caps$PersonasRCVG, axes=F, ann=F,
>>>           col="grey", border=F, space=.01, *add=T)*
>>>
>>> #######################
>>> # Líneas - Eje Secundario
>>> par(new=T)
>>> plot(caps$Con12Meses, axes=F, ann=F, type="n")
>>> *#*points(caps$Con12Meses,type="l",col="black")       # Crea la línea
>>> paracaps$Con12Meses (por la cual quiero ordenar)
>>> *#*points(caps$Con12Meses,  pch=16, col="black")*  *    # agrega puntos
>>> negros rellenos a la línea
>>> *points(caps$Con12Meses,  pch=16, col="black")  # Los dos pasos
>>> anteriores los puedo hacer en uno.*
>>> par(new=T)
>>> plot(caps$prevalencia, axes=F, ann=F, type="n")
>>> *axis(4, col.axis="tomato", col.lab="black" )   *                      #
>>> Crea el eje secundario  *y le doy color rojo como una de las líneas. *
>>> *#*points(caps$prevalencia,type="l",col="red")       # Crea la línea
>>> sobre el eje secundario
>>> #points(caps$prevalencia,  pch=16, col="red")      # agrega puntos rojos
>>> rellenos a la línea
>>> *points(caps$prevalencia,  type="b", pch=16, col="red") **# Los dos
>>> pasos anteriores los puedo hacer en uno.*
>>>   text(caps$prevalencia, labels=paste(caps$prevalencia), pos=3,
>>> col="red", )
>>> # si se quiere poner la prevalencia en el gráfico.
>>> *box()*
>>>
>>> ########################################################
>>>
>>>
>>> Saludos,
>>> Carlos Ortega
>>> www.qualityexcellence.es
>>>
>>> El 31 de octubre de 2012 10:24, Xavi de Blas <xaviblas en gmail.com>escribió:
>>>
>>> Perdón por el autobombo pero aquí tengo un gráfico con 4 variables que
>>>> me satisface:
>>>>
>>>> http://chronojump.org/server/images/tf_by_level_sex_jumptype.png
>>>>
>>>> el código está aquí:
>>>>
>>>>
>>>> http://git.gnome.org/browse/chronojump/tree/chronojump_server/r-sqlite/tf_by_level_sex_jumptype.R
>>>>
>>>> A ver si te sirve. Saludos
>>>>
>>>>
>>>>
>>>> 2012/10/31 Carlos Ortega <cof en qualityexcellence.es>:
>>>>> Hola,
>>>>>
>>>>> La clave está destacada en utilizar "*add=T*" en el segundo barplot
>>>> para
>>>>> superponerle al primero en vez de utilizar "par(new=T)".
>>>>> El destaco los cambios en tu mismo código:
>>>>>
>>>>> par(mar=c(4,4,3,1),            #
>>>>>      omi=c(0.1,0.1,0.1,0.1),    #
>>>>>      las=1,                     #
>>>>>      mex=0.5,                   #
>>>>>      cex.lab = 1,               #
>>>>>      cex.axis=0.7)              # el tamaño de las leyendas
>>>>> barplot(caps$personas,
>>>>>          names.ar=caps$CAPS,
>>>>>          col="blue", border=F, space=.01)
>>>>> *#par(new=T)*
>>>>> barplot(caps$PersonasRCVG, axes=F, ann=F, type="n",
>>>>>          # crea la barra de caps$PersonasRCGV, pero cambia los ejes
>>>> porque
>>>>> el resultado gráfico no es
>>>>>          # coherente con los valores (caps$PersonasRCVG siempre es un
>>>> valor
>>>>> menor que
>>>>>          #                           caps$personas...)
>>>>>          col="grey", border=F, space=.01*, add=T*)
>>>>>
>>>>> Saludos,
>>>>> Carlos Ortega
>>>>> www.qualityexcellence.es
>>>>>
>>>>> El 31 de octubre de 2012 05:32, Mauricio Monsalvo
>>>>> <m.monsalvo en gmail.com>escribió:
>>>>>
>>>>>> Estimados amigos,
>>>>>> Tengo el siguiente set de datos:
>>>>>> caps <- datos[datos$NombreDepartamento=="LANUS", c("CAPS", "personas",
>>>>>> "PersonasRCVG", "Con12Meses")]
>>>>>> caps$prevalencia <- round(caps$PersonasRCVG/caps$personas*100,1)
>>>>>>    caps
>>>>>>
>>>>>>       CAPS personas PersonasRCVG Con12Meses prevalencia
>>>>>> 2345 2345     1347          132        211         9.8
>>>>>> 2363 2363    17272         1602       2320         9.3
>>>>>> 2341 2341     1771          241        220        13.6
>>>>>> 2361 2361     2725          371        466        13.6
>>>>>> 2342 2342     4590          538       3615        11.7
>>>>>> 2347 2347    16610         1678       5884        10.1
>>>>>> 2348 2348     2961          373        883        12.6
>>>>>> 2350 2350     8132          990       1180        12.2
>>>>>> 2351 2351     2205          332        208        15.1
>>>>>> 2355 2355     4059          409        548        10.1
>>>>>> 2364 2364     5175          517        696        10.0
>>>>>> 2349 2349     1111          158        459        14.2
>>>>>> 2360 2360      809          127        190        15.7
>>>>>> 2362 2362     3112          358        754        11.5
>>>>>> 2365 2365     2522          340        271        13.5
>>>>>> 2343 2343    12136         1112       5016         9.2
>>>>>> 2344 2344    20956         2365       4161        11.3
>>>>>> 2346 2346     2640          273       1062        10.3
>>>>>> 2357 2357     3143          458        682        14.6
>>>>>> 2358 2358     3432          337        532         9.8
>>>>>> 2340 2340     1733          288        384        16.6
>>>>>> 2352 2352    17358         1694       3511         9.8
>>>>>> 2356 2356    15034         1780      10990        11.8
>>>>>> 2359 2359    15907         1731       6464        10.9
>>>>>> 8924 8924      639          160        103        25.0
>>>>>> 8929 8929      734          107         66        14.6
>>>>>> 8937 8937     2688          527        414        19.6
>>>>>> 8932 8932      858           93         96        10.8
>>>>>>
>>>>>> Y quiero graficar las 4 variables juntas. Creo que casi casi casi lo
>>>> logro,
>>>>>> salvo por (a) la barra de caps$PersonasRCVG, que pareciera cambia los
>>>>>> valores del eje Y a otra escala... creo... y (b) porque me falta
>>>> ordenar el
>>>>>> gráfico por la línea de caps$Con12Meses (de mayor a menor).
>>>>>> Va mi mejor intento:
>>>>>> par(mar=c(4,4,3,1),            #
>>>>>>      omi=c(0.1,0.1,0.1,0.1),    #
>>>>>>      las=1,                     #
>>>>>>      mex=0.5,                   #
>>>>>>      cex.lab = 1,               #
>>>>>>      cex.axis=0.7)              # el tamaño de las leyendas
>>>>>> barplot(caps$personas,
>>>>>>          names.ar=caps$CAPS,
>>>>>>          col="blue", border=F, space=.01)
>>>>>> par(new=T)
>>>>>> barplot(caps$PersonasRCVG, axes=F, ann=F, type="n", # crea la barra de
>>>>>> caps$PersonasRCGV, pero cambia los ejes porque el resultado gráfico
>>>> no es
>>>>>> coherente con los valores (caps$PersonasRCVG siempre es un valor
>>>> menor que
>>>>>> caps$personas...)
>>>>>>          col="grey", border=F, space=.01)
>>>>>> par(new=T)
>>>>>> plot(caps$Con12Meses, axes=F, ann=F, type="n")
>>>>>> points(caps$Con12Meses,type="l",col="black")       # Crea la línea
>>>> para
>>>>>> caps$Con12Meses (por la cual quiero ordenar)
>>>>>> points(caps$Con12Meses,  pch=16, col="black")      # agrega puntos
>>>> negros
>>>>>> rellenos a la línea
>>>>>> par(new=T)
>>>>>> plot(caps$prevalencia, axes=F, ann=F, type="n")
>>>>>> axis(4)                                           # Crea el eje
>>>> secundario
>>>>>> points(caps$prevalencia,type="l",col="red")       # Crea la línea
>>>> sobre el
>>>>>> eje secundario
>>>>>> points(caps$prevalencia,  pch=16, col="red")      # agrega puntos
>>>> rojos
>>>>>> rellenos a la línea
>>>>>> text(caps$prevalencia, labels=paste(caps$prevalencia), pos=3,
>>>> col="red", )
>>>>>> # si se quiere poner la prevalencia en el gráfico.
>>>>>> ¿Podrían por favor ayudarme con la solución? Les juro que renegué
>>>> como loco
>>>>>> para llegar a este punto y creo que ya no "veo" más nada en las
>>>> ayudas!
>>>>>> Además, ¿no hay una forma más "simple" de hacerlo?
>>>>>> Muchas gracias, como siempre. (Algún día aprenderé...)
>>>>>> --
>>>>>> Mauricio
>>>>>>
>>>>>>          [[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
>>>>>
>>>>>
>>>>> --
>>>>> 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
>>>
>>>
>>>
>>> --
>>> Saludos,
>>> Carlos Ortega
>>> www.qualityexcellence.es
>>
>>
>>
>> --
>> Mauricio
>
>
>
> --
> 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
>
>
> Fin de Resumen de R-help-es, Vol 44, Envío 40
> *********************************************
>    [[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