<div dir="ltr">Uma opção para desempacar, deve ter uma maneira mais elegante.<div><br></div><div>library(tidyr)</div><div>s$Valor <- TRUE</div><div>spread(s, AdmissionReasonName_sec, Valor, fill=FALSE)<br></div></div><div class="gmail_extra"><br><div class="gmail_quote">2015-06-30 11:04 GMT-03:00 Pedro Emmanuel Alvarenga Americano do Brasil <span dir="ltr"><<a href="mailto:emmanuel.brasil@gmail.com" target="_blank">emmanuel.brasil@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><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)">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" 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)">Reparem que a linha 2 e 6 possuem o mesmo identificador</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)">Original:</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">                       Unique_Identifier AdmissionReasonName_sec</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">1 {6841FBAD-EB26-4EB3-AD8C-3AE00E23A563}    Trauma não-cirurgico</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">2 {D4BE0DF7-A143-4EE5-9B9F-659F198A817C}             Neurológico</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">3 {A6240B7F-3571-473E-AEFF-944372B312A4}          Infecção/Sepse</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">4 {946C597C-A79C-47A0-B0A6-16BEB9817571}          Cardiovascular</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">5 {023FF83F-A65C-49FE-8E0C-D26D8BD82B40}          Cardiovascular</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">6 {D4BE0DF7-A143-4EE5-9B9F-659F198A817C}          Cardiovascular </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)">Formato desejado: Reparem que aqui o ID duplicado foi removido mas aparecem True nas variaveis Cardiovascular e Neurologico</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)"><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" style="font-family:'courier new',monospace;color:rgb(0,0,102)">Para montar o banco original</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">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" style="font-family:'courier new',monospace;color:rgb(0,0,102)">AdmissionReasonName_sec=c("Trauma não-cirurgico","Neurológico","Infecção/Sepse","Cardiovascular","Cardiovascular","Cardiovascular"))</div><div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">​s​</div><br></div><div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">​Abraço,​</div><span class="HOEnZb"><font color="#888888"><br></font></span></div><span class="HOEnZb"><font color="#888888"><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)"><br></div><div><div><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>
</font></span></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>