<div dir="ltr"><div>Alternativa também com dplyr.</div><div><br></div><div>library(dplyr)<br></div>df %>% <div>group_by_at(vars(-CAUSA)) %>% </div><div>summarise(CAUSA = paste(CAUSA, collapse = ", "))</div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr">On Thu, Nov 29, 2018 at 12:04 PM Leonardo Mancini por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div dir="ltr">Paulo, <div><br></div><div>Certamente há uma maneira mais elegante de fazer isso, mas talvez esse código te dê alguma pista:</div><div><br></div><div><div>df %>% </div><div>  spread(CAUSA, CAUSA) %>% </div><div>  unite(CAUSAS, A, B, C, D, E, F, G, H, I, sep = ",", remove = T) %>% </div><div>  mutate(CAUSAS = str_remove_all(CAUSAS, ",NA")) %>% </div><div>  mutate(CAUSAS = str_remove_all(CAUSAS, "NA,"))</div></div><div><br></div><div>Abs</div></div></div><br><div class="gmail_quote"><div dir="ltr">Em qui, 29 de nov de 2018 às 10:30, Paulo Eduardo de Mesquita por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div dir="ltr">Prezado(a)s Colegas<div><br></div><div>Peço ajuda para um problema simples para o qual não encontro solução.</div><div><br></div><div>O código abaixo gera uma estrutura de dados de trabalho:</div><div><br></div><div><div><img src="cid:ii_jp2kf9xo0" alt="demo1.png" width="240" height="170"><br></div><div><br></div><div>Eu quero muda-la para esse formato:</div><div><br></div><div><div><img src="cid:ii_jp2klm0k1" alt="demo2.png" width="284" height="100"><br></div></div><div><br></div><div><div><br></div><div>ID <- c(1, 1, 1, 1, 2, 2, 3, 3, 3)</div><div>NOME <- c("xpto", "xpto", "xpto", "xpto", "tpzo", "tpzo", "capr", "capr", "capr")</div><div>IDADE <- c(1, 1, 1, 1, 57, 57, 81, 81, 81)</div><div>SEXO <- c("M", "M", "M", "M", "M", "M", "F", "F", "F")</div><div>CAUSA <- c("A", "B", "C", "D", "E", "F","G","H","I")</div><div><br></div><div>df <- data.frame(ID, NOME, IDADE, SEXO, CAUSA)</div><div><br></div><div>df</div></div><div><br></div><div>Procurei soluções com as com as funções do pacote reshape2 (unmelt e dcast) e group_by do dplyr, mas não tive sucesso.</div><div><br></div><div>Fico grato por alguma dica.</div><div><br></div><div>Muito obrigado pela atenção.</div>-- <br><div dir="ltr" class="m_8934139935323523718m_-4051993178369214324gmail-m_-8644691705972140504gmail_signature">Paulo Eduardo de Mesquita<br>Disciplina de Infectologia - Faculdade de Medicina  Universidade do Oeste Paulista Presidente Prudente - São Paulo - Brasil<br>telefone: 5518 97718261</div></div></div></div>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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.</blockquote></div>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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.</blockquote></div><br clear="all"><div><br></div>-- <br><div dir="ltr" class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><font size="2" style="font-family:arial">###############################################################</font><br><span style="font-family:arial;font-size:small">##  </span><span style="font-size:11px;text-align:center;background-color:rgb(239,239,239);color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;line-height:13px">Jônatan Dupont Tatsch</span></div><div><span style="font-family:arial;font-size:small">##  </span><span style="color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;font-size:10.909090995788574px;line-height:12.997159004211426px;text-align:center;background-color:rgb(239,239,239)">Professor do Departamento de Física</span></div><div><span style="font-size:small;font-family:arial">##  </span><span style="color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;font-size:10.909090995788574px;line-height:12.997159004211426px;text-align:center;background-color:rgb(239,239,239)">Centro de Ciências Exatas e Naturais (CCNE)</span><br></div><div><span style="font-size:small;font-family:arial">##  </span><span style="color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;font-size:10.909090995788574px;line-height:12.997159004211426px;text-align:center;background-color:rgb(239,239,239)">Universidade Federal de Santa Maria - UFSM</span></div><div><span style="font-family:arial;font-size:small">##  </span><span style="font-size:11px;text-align:center;background-color:rgb(239,239,239);color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;line-height:13px">Faixa de Camobi, Prédio 13 - Campus UFSM - </span><span style="font-size:11px;text-align:center;background-color:rgb(239,239,239);color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;line-height:13px">Santa Maria, RS, Brasil - 97105-900</span><br></div><div style="font-family:arial;font-size:small">##  <span style="font-size:11px;text-align:center;background-color:rgb(239,239,239);color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;line-height:13px">Telefone: +55(55)33012083</span><br></div><div style="font-family:arial;font-size:small">##  <span style="font-size:11px;text-align:center;background-color:rgb(239,239,239);color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;line-height:13px"><a href="http://www.ufsm.br/meteorologia" target="_blank">www.ufsm.br/meteorologia</a></span></div><div style="font-family:arial;font-size:small">###############################################################</div></div></div></div></div></div></div>