[R-br] Enc: (sem assunto)

[Maria de Fatima Ferreira Almeida]

----- Mensagem encaminhada -----
De: Rodrigo Coster <rcoster em gmail.com>
Para: "r-br em listas.c3sl.ufpr.br" <r-br em listas.c3sl.ufpr.br> 
Enviadas: Sexta-feira, 4 de Outubro de 2013 10:30
Assunto: Re: [R-br] (sem assunto)
 


Da para fazer com o aggregate() que nem te falaram antes, só acrescentando mais um critério no parâmetro by (no proprio help tem exemplo de agregações por 2 variaveis...), ou com o by()

idade=c("1","3","2","2","1","2","1","3","1","3")
sexo <- c("1","1","2","2","1","2","1","1","1","1")
tcont <- c(100,320,24,256,134,290,18,34,15,121)
read <- c("s","n","n","n","s","s","s","n","n","s")
dados <- data.frame(idade, sexo,tcont,read)

by(dados, list(dados$sexo, dados$idade), function(x) data.frame(sexo=x$sexo[1], idade=x$idade[1], tcont=sum(x$tcont), read=sum(x$read == 's')))

Pra fazer tudo ficar num só data.frame, da para usar do.call()

do.call(rbind, by(dados, list(dados$sexo, dados$idade), function(x) data.frame(sexo=x$sexo[1], idade=x$idade[1], tcont=sum(x$tcont), read=sum(x$read == 's'))))

Não tem todas combinações sexo-idade pq nos dados que tu deu como exemplo eles não aparecem



2013/10/4 Fátima Lima Paula <fatima.lima.paula em gmail.com>

Pessoal, o Fernando me ajudou a agregar com 2 variáveis. Agora preciso agregar estratificando. Ou seja, 
>
>
>idade=c("1","3","2","2","1","2","1","3","1","3")
>sexo <- c("1","1","2","2","1","2","1","1","1","1")
>tcont <- c(100,320,24,256,134,290,18,34,15,121)
>read <- c("s","n","n","n","s","s","s","n","n","s")
>
>
>dados <- data.frame(sexo,tcont,read)
>dados
>
>
>dados$read <- as.numeric(ifelse(read == 's', 1, 0))
>
>
>dados
>
>
>Agora quero que o resultado fique assim:
>
>
>
>
>   sexo idade     tcont    read
>1     1     1 
>2     1     2  
>3     1     3  
>4     2     1
>5     2     2 
>6     2     3 
>
>
>O tcont será a soma e a coluna de read terá a quantidade de readmissões estratificada.
>Alguém pode me ajudar?
>Obrigada
>Fátima
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>-- 
>
>"Minha felicidade depende da qualidade dos meus pensamentos"
>
>_______________________________________________
>R-br mailing list
>R-br em listas.c3sl.ufpr.br
>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
>


_______________________________________________
R-br mailing list
R-br em listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20131010/8c817417/attachment.html>