<div dir="ltr"><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">Amigos de R,</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)"><br></div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">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. </div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)"><br></div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)"><div class="gmail_default">tmp <- table(s2$Unique_Identifier,s2$AdmissionMainDiagnosisName_sec)</div><div class="gmail_default">tmp <- as.data.frame(cbind(Unique_Identifier=rownames(tmp),tmp))</div><div class="gmail_default">rownames(tmp) <- seq_along(rownames(tmp))</div><div class="gmail_default">colnames(tmp)[2:ncol(tmp)] <- paste0("AMDN_sec_",colnames(tmp)[2:ncol(tmp)])</div><div class="gmail_default"># View(tmp)</div><div class="gmail_default"># lapply(tmp,table)</div><div class="gmail_default">tmp2 <- table(s2$Unique_Identifier,s2$AdmissionReasonName_sec)</div><div class="gmail_default">tmp2 <- as.data.frame(cbind(Unique_Identifier=rownames(tmp2),tmp2))</div><div class="gmail_default">rownames(tmp2) <- seq_along(rownames(tmp2))</div><div class="gmail_default">rownames(tmp2) <- seq_along(rownames(tmp2))</div><div class="gmail_default">colnames(tmp2)[2:ncol(tmp2)] <- paste0("ARN_sec_",colnames(tmp2)[2:ncol(tmp2)])</div><div class="gmail_default"># View(tmp2)</div><div class="gmail_default"># lapply(tmp2,table)</div><div class="gmail_default">s3 <- merge(tmp2,tmp,all=T,sort=F)</div><div class="gmail_default"># View(s3)</div><div class="gmail_default"># dim(s3)</div><div class="gmail_default">s3[,2:ncol(s3)] <- sapply(2:ncol(s3),function(i)ifelse(s3[,i]==1,"True","False"))</div><div class="gmail_default"><br></div><div class="gmail_default">Obrigado,</div></div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><font face="'courier new', monospace" style="background-color:rgb(255,255,255)" color="#000066">Pedro Brasil</font></div></div></div></div></div></div>
<br><div class="gmail_quote">Em 30 de junho de 2015 12:38, Elias Teixeira Krainski <span dir="ltr"><<a href="mailto:eliaskrainski@yahoo.com.br" target="_blank">eliaskrainski@yahoo.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div text="#000000" bgcolor="#FFFFFF">
table(s)<div><div class="h5"><br>
<br>
<div>On 30/06/15 16:04, Pedro Emmanuel
Alvarenga Americano do Brasil wrote:<br>
</div>
</div></div><blockquote type="cite"><div><div class="h5">
<div dir="ltr">
<div class="gmail_default">Amigos de R,</div>
<div class="gmail_default"><br>
</div>
<div class="gmail_default">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;</div>
<div class="gmail_default"><br>
</div>
<div class="gmail_default">Reparem que a linha 2 e 6
possuem o mesmo identificador</div>
<div class="gmail_default"><br>
</div>
<div class="gmail_default">Original:</div>
<div class="gmail_default">
Unique_Identifier AdmissionReasonName_sec</div>
<div class="gmail_default">1
{6841FBAD-EB26-4EB3-AD8C-3AE00E23A563} Trauma não-cirurgico</div>
<div class="gmail_default">2 {D4BE0DF7-A143-4EE5-9B9F-659F198A817C}
Neurológico</div>
<div class="gmail_default">3
{A6240B7F-3571-473E-AEFF-944372B312A4} Infecção/Sepse</div>
<div class="gmail_default">4
{946C597C-A79C-47A0-B0A6-16BEB9817571} Cardiovascular</div>
<div class="gmail_default">5
{023FF83F-A65C-49FE-8E0C-D26D8BD82B40} Cardiovascular</div>
<div class="gmail_default">6
{D4BE0DF7-A143-4EE5-9B9F-659F198A817C}
Cardiovascular </div>
<div class="gmail_default"><br>
</div>
<div class="gmail_default">Formato desejado: Reparem
que aqui o ID duplicado foi removido mas aparecem True nas
variaveis Cardiovascular e Neurologico</div>
<div class="gmail_default">
<div class="gmail_default">
Unique_Identifier Trauma não-cirurgico Neurologico
Infecção/Sepse Cardiovascular</div>
<div class="gmail_default">1
{6841FBAD-EB26-4EB3-AD8C-3AE00E23A563} True
False False False</div>
<div class="gmail_default">2 {D4BE0DF7-A143-4EE5-9B9F-659F198A817C}
False True False
True</div>
<div class="gmail_default">3
{A6240B7F-3571-473E-AEFF-944372B312A4} False
False True False</div>
<div class="gmail_default">4
{946C597C-A79C-47A0-B0A6-16BEB9817571} False
False False True</div>
<div class="gmail_default">5
{023FF83F-A65C-49FE-8E0C-D26D8BD82B40} False
False False True</div>
<div class="gmail_default"><br>
</div>
</div>
<div class="gmail_default">Para montar o banco
original</div>
<div class="gmail_default">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}"), </div>
<div class="gmail_default">AdmissionReasonName_sec=c("Trauma
não-cirurgico","Neurológico","Infecção/Sepse","Cardiovascular","Cardiovascular","Cardiovascular"))</div>
<div>
<div class="gmail_default">s</div>
<br>
</div>
<div>
<div class="gmail_default">Abraço,</div>
<br>
</div>
<div class="gmail_default"><br>
</div>
<div>
<div>
<div dir="ltr">
<div>
<div dir="ltr">
<div dir="ltr"><font style="background-color:rgb(255,255,255)" face="'courier new', monospace" color="#000066">Pedro
Brasil</font></div>
</div>
</div>
</div>
</div>
</div>
</div>
<br>
<fieldset></fieldset>
<br>
</div></div><span class=""><pre>_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</span></blockquote>
<br>
</div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>