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@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@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