Oi,
Veja se isso funciona:
library(dplyr)
library(tidyr)
df2 <- df %>%
mutate(id_curso = "id_curso") %>%
pivot_wider(id_cols = nome,
names_from = id_curso,
values_from = curso) %>%
unnest_wider(col = id_curso)
Em qui., 29 de fev. de 2024 às 15:09, Amiko Bh por (R-br) <
r-br@listas.c3sl.ufpr.br> escreveu:
> Pessoal:
> para o seguinte df:
>
> df <- data.frame(nome = c("NOME_1", "NOME_1", "NOME_1",
> "NOME_2", "NOME_2", "NOME_2", "NOME_2",
> "NOME_2",
> "NOME_3", "NOME_3", "NOME_3", "NOME_3",
> "NOME_3"),
> curso = c("INFORMÁTICA INICIAL", "INFORMÁTICA_NÍVEL_2", "PIZZAS
> TRADICIONAIS",
> "DESIGN DE SOBRANCELHA", "INFORMÁTICA INICIAL",
> "INFORMÁTICA_NÍVEL_1", "INFORMÁTICA_NÍVEL_2", "PIZZAS TRADICIONAIS",
> "DESIGN DE SOBRANCELHA", "INFORMÁTICA INICIAL",
> "INFORMÁTICA_NÍVEL_1", "INFORMÁTICA_NÍVEL_2", "BARBEARIA"))
>
>
> *nome* *curso*
> NOME_1 INFORMÁTICA INICIAL
> NOME_1 INFORMÁTICA_NÍVEL_2
> NOME_1 PIZZAS TRADICIONAIS
> NOME_2 DESIGN DE SOBRANCELHA
> NOME_2 INFORMÁTICA INICIAL
> NOME_2 INFORMÁTICA_NÍVEL_1
> NOME_2 INFORMÁTICA_NÍVEL_2
> NOME_2 PIZZAS TRADICIONAIS
> NOME_3 DESIGN DE SOBRANCELHA
> NOME_3 INFORMÁTICA INICIAL
> NOME_3 INFORMÁTICA_NÍVEL_1
> NOME_3 PIZZAS TRADICIONAIS
> NOME_3 BARBEARIA
>
> Preciso desmembrar as linhas do curso, por nome, em colunas, respeitando
> os nomes dos alunos, de tal forma que resulte em:
>
>
> *aluno* *curso* *curso_1* *curso_2* *curso_3* *curso_4*
> NOME_1 INFORMÁTICA INICIAL INFORMÁTICA_NÍVEL_2 PIZZAS TRADICIONAIS
>
> NOME_2 DESIGN DE SOBRANCELHA INFORMÁTICA INICIAL INFORMÁTICA_NÍVEL_1
> INFORMÁTICA_NÍVEL_2 PIZZAS TRADICIONAIS
> NOME_3 DESIGN DE SOBRANCELHA INFORMÁTICA INICIAL INFORMÁTICA_NÍVEL_1 PIZZAS
> TRADICIONAIS BARBEARIA
>
> O banco que tenho é enorme e um mesmo aluno pode ter realizado mais de 15
> cursos.
>
> Desde já agradeço.
>
> _______________________________________________
> R-br mailing list
> R-br@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.
>
--
Marcos F. Silva | audinalytics.netlify.app
_______________________________________________
R-br mailing list
R-br@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.
