<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">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_-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>