[R-br] Modificação da orientação de estrutura de dados

[Jônatan]

Alternativa também com dplyr.

library(dplyr)
df %>%
group_by_at(vars(-CAUSA)) %>%
summarise(CAUSA = paste(CAUSA, collapse = ", "))


On Thu, Nov 29, 2018 at 12:04 PM Leonardo Mancini por (R-br) <
r-br em listas.c3sl.ufpr.br> wrote:

> Paulo,
>
> Certamente há uma maneira mais elegante de fazer isso, mas talvez esse
> código te dê alguma pista:
>
> df %>%
>   spread(CAUSA, CAUSA) %>%
>   unite(CAUSAS, A, B, C, D, E, F, G, H, I, sep = ",", remove = T) %>%
>   mutate(CAUSAS = str_remove_all(CAUSAS, ",NA")) %>%
>   mutate(CAUSAS = str_remove_all(CAUSAS, "NA,"))
>
> Abs
>
> Em qui, 29 de nov de 2018 às 10:30, Paulo Eduardo de Mesquita por (R-br) <
> r-br em listas.c3sl.ufpr.br> escreveu:
>
>> Prezado(a)s Colegas
>>
>> Peço ajuda para um problema simples para o qual não encontro solução.
>>
>> O código abaixo gera uma estrutura de dados de trabalho:
>>
>> [image: demo1.png]
>>
>> Eu quero muda-la para esse formato:
>>
>> [image: demo2.png]
>>
>>
>> ID <- c(1, 1, 1, 1, 2, 2, 3, 3, 3)
>> NOME <- c("xpto", "xpto", "xpto", "xpto", "tpzo", "tpzo", "capr", "capr",
>> "capr")
>> IDADE <- c(1, 1, 1, 1, 57, 57, 81, 81, 81)
>> SEXO <- c("M", "M", "M", "M", "M", "M", "F", "F", "F")
>> CAUSA <- c("A", "B", "C", "D", "E", "F","G","H","I")
>>
>> df <- data.frame(ID, NOME, IDADE, SEXO, CAUSA)
>>
>> df
>>
>> 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.
>>
>> Fico grato por alguma dica.
>>
>> Muito obrigado pela atenção.
>> --
>> Paulo Eduardo de Mesquita
>> Disciplina de Infectologia - Faculdade de Medicina  Universidade do Oeste
>> Paulista Presidente Prudente - São Paulo - Brasil
>> telefone: 5518 97718261
>> _______________________________________________
>> R-br mailing list
>> R-br em 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 em 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.



-- 
###############################################################
##  Jônatan Dupont Tatsch
##  Professor do Departamento de Física
##  Centro de Ciências Exatas e Naturais (CCNE)
##  Universidade Federal de Santa Maria - UFSM
##  Faixa de Camobi, Prédio 13 - Campus UFSM - Santa Maria, RS, Brasil -
97105-900
##  Telefone: +55(55)33012083
##  www.ufsm.br/meteorologia
###############################################################
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20181129/c0417ec9/attachment.html>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: demo1.png
Tipo: image/png
Tamanho: 3960 bytes
Descrição: não disponível
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20181129/c0417ec9/attachment.png>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: demo2.png
Tipo: image/png
Tamanho: 2925 bytes
Descrição: não disponível
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20181129/c0417ec9/attachment-0001.png>