Amigos de R,

A solução do Marcos funcionou em parte. Não consegui entender muito bem ainda como uma variavel flag muda os nomes das variáveis... mas enfim. Mas no meio do segundo round de tentativas eu tive o mesmo estalo que o Elias e acho que ficou mais facil apesar de ter mais linhas. 

tmp <- table(s2$Unique_Identifier,s2$AdmissionMainDiagnosisName_sec)
tmp <- as.data.frame(cbind(Unique_Identifier=rownames(tmp),tmp))
rownames(tmp) <- seq_along(rownames(tmp))
colnames(tmp)[2:ncol(tmp)] <- paste0("AMDN_sec_",colnames(tmp)[2:ncol(tmp)])
# View(tmp)
# lapply(tmp,table)
tmp2 <- table(s2$Unique_Identifier,s2$AdmissionReasonName_sec)
tmp2 <- as.data.frame(cbind(Unique_Identifier=rownames(tmp2),tmp2))
rownames(tmp2) <- seq_along(rownames(tmp2))
rownames(tmp2) <- seq_along(rownames(tmp2))
colnames(tmp2)[2:ncol(tmp2)] <- paste0("ARN_sec_",colnames(tmp2)[2:ncol(tmp2)])
# View(tmp2)
# lapply(tmp2,table)
s3 <- merge(tmp2,tmp,all=T,sort=F)
# View(s3)
# dim(s3)
s3[,2:ncol(s3)] <- sapply(2:ncol(s3),function(i)ifelse(s3[,i]==1,"True","False"))

Obrigado,

Pedro Brasil

Em 30 de junho de 2015 12:38, Elias Teixeira Krainski <eliaskrainski@yahoo.com.br> escreveu:
table(s)


On 30/06/15 16:04, Pedro Emmanuel Alvarenga Americano do Brasil wrote:
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.


_______________________________________________
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.