[R-br] Agregando ou reshape de dados?

[Marcos Silva]

Oi Pedro,

Dá uma olhada e veja se é isso...


s <-
data.frame(Unique_Identifier=c("{6841FBAD-EB26-4EB3-AD8C-3AE00E23A563}","{D4BE0DF7-A143-4EE5-9B9F-659F198A817C}","{A6240B7F-3571-473E-AEFF-944372B312A4}","{946C597C-A79C-47A0-B0A6-16BEB9817571}","{023FF83F-A65C-49FE-8E0C-D26D8BD82B40}","{D4BE0DF7-A143-4EE5-9B9F-659F198A817C}"),
                AdmissionReasonName_sec=c("Trauma
não-cirurgico","Neurológico","Infecção/Sepse","Cardiovascular","Cardiovascular","Cardiovascular"))


s$flag <- 1

s <- reshape(s, idvar='Unique_Identifier',
           timevar = 'AdmissionReasonName_sec',
           direction='wide')

s[, -1] <- apply(s[, -1], 2, function(x) {x[is.na(x)] <- 0; x})



Em 30 de junho de 2015 11:04, Pedro Emmanuel Alvarenga Americano do Brasil <
emmanuel.brasil em gmail.com> escreveu:

> Amigos de R,
>
> Há algumas horas estou empacado e ja tentei diversas coisas aqui, como o
> reshape e aggregate e não consigo. Bom a intensão é transformar os dados de
> tal forma que duas variáveis repetitivas sejam transformadas, de tal forma
> que as categorias dessas variáveis passem a ser as novas colunas e o seu
> conteúdo passe a ser True ou False para cada identificador, mais ou menos
> assim;
>
> Reparem que a linha 2 e 6 possuem o mesmo identificador
>
> Original:
>                        Unique_Identifier AdmissionReasonName_sec
> 1 {6841FBAD-EB26-4EB3-AD8C-3AE00E23A563}    Trauma não-cirurgico
> 2 {D4BE0DF7-A143-4EE5-9B9F-659F198A817C}             Neurológico
> 3 {A6240B7F-3571-473E-AEFF-944372B312A4}          Infecção/Sepse
> 4 {946C597C-A79C-47A0-B0A6-16BEB9817571}          Cardiovascular
> 5 {023FF83F-A65C-49FE-8E0C-D26D8BD82B40}          Cardiovascular
> 6 {D4BE0DF7-A143-4EE5-9B9F-659F198A817C}          Cardiovascular
>
> Formato desejado: Reparem que aqui o ID duplicado foi removido mas
> aparecem True nas variaveis Cardiovascular e Neurologico
>                        Unique_Identifier Trauma não-cirurgico Neurologico
> Infecção/Sepse Cardiovascular
> 1 {6841FBAD-EB26-4EB3-AD8C-3AE00E23A563}                 True       False
>          False          False
> 2 {D4BE0DF7-A143-4EE5-9B9F-659F198A817C}                False        True
>          False           True
> 3 {A6240B7F-3571-473E-AEFF-944372B312A4}                False       False
>           True          False
> 4 {946C597C-A79C-47A0-B0A6-16BEB9817571}                False       False
>          False           True
> 5 {023FF83F-A65C-49FE-8E0C-D26D8BD82B40}                False       False
>          False           True
>
> Para montar o banco original
> s <-
> data.frame(Unique_Identifier=c("{6841FBAD-EB26-4EB3-AD8C-3AE00E23A563}","{D4BE0DF7-A143-4EE5-9B9F-659F198A817C}","{A6240B7F-3571-473E-AEFF-944372B312A4}","{946C597C-A79C-47A0-B0A6-16BEB9817571}","{023FF83F-A65C-49FE-8E0C-D26D8BD82B40}","{D4BE0DF7-A143-4EE5-9B9F-659F198A817C}"),
> AdmissionReasonName_sec=c("Trauma
> não-cirurgico","Neurológico","Infecção/Sepse","Cardiovascular","Cardiovascular","Cardiovascular"))
> ​s​
>
> ​Abraço,​
>
>
> Pedro Brasil
>
> _______________________________________________
> 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.
>



-- 
Marcos F. Silva
http://sites.google.com/site/marcosfs2006
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150630/6d9aedb3/attachment.html>