----- Mensagem encaminhada -----
De: Rodrigo Coster <[email protected]>
Para: "[email protected]" <[email protected]>
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 <[email protected]>
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
>[email protected]
>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
[email protected]
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
[email protected]
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.
