[R-br] Agregando ou reshape de dados?

[Thiago Serafim]

Uma opção para desempacar, deve ter uma maneira mais elegante.

library(tidyr)
s$Valor <- TRUE
spread(s, AdmissionReasonName_sec, Valor, fill=FALSE)

2015-06-30 11:04 GMT-03:00 Pedro Emmanuel Alvarenga Americano do Brasil <
emmanuel.brasil em gmail.com>:

> 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150630/78cb3371/attachment.html>