[R-es] Media en subgrupos de grupos

Hola Jesus,

Puedes obtener resultados similares utilizando ave(), aggregate(),
tapply(), todos en base, o a/d/l*ply en la libreria plyr (ver [1]).  Otra
posibilidad es a traves de la libreria tables (ver [2])

A continuacion un ejemplo con tapply() y aggregate():

n <- 1000
sexo <- sample(c('hombre', 'mujer'), n, TRUE)
franja <- sample(c('infantil', 'adulto', 'anciano'), n, TRUE)
annos <- rnorm(n, 30, 15)
d <- data.frame(sexo, franja, annos)

with(d, aggregate(annos, list(sexo, franja), mean))
with(d, tapply(annos, list(sexo, franja), mean))

Para obtener la media global tendrias que hacer un pequeno "truco"  ;-)

Un saludo,
Jorge.-

[1]  http://www.jstatsoft.org/v40/i01/paper
 [2]  http://cran.r-project.org/web/packages/tables/index.html



2012/1/25 Jesus Armand Calejero Roman <>

Un saludo a todos.

Es posible que con el asunto no quede claro lo que quiero. Para eso añado
una captura.

Dispongo de 3 variables (dos discretas y una continua) y me interesaría
sacar la media tanto del grupo como de los subgrupos. Esta creo que es la
segunda vez que escribo preguntando algo parecido. En la primera me
hablasteis de tapply, pero con este comando sólo sé obtener la media de una
de las variables, por ejemplo la media de edad de los grupos de la variable
Franja o de la variable Sexo pero no de los dos a la vez como en la tabla
dinámica que acompaña a los datos en la captura. Aggregate no me queda muy
claro qué es lo que hace.

Espero no volver a ser de mucha molestia.

Muchas gracias de antemano

_______________________________________________
R-help-es mailing list
R-help-es en r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20120125/af8be29d/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: no disponible
Type: image/png
Size: 31938 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20120125/af8be29d/attachment-0001.png>