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. Silvaaudinalytics.netlify.app