Início / coding / Perguntas / 77778180
Accepted
firmo23
Asked: 2024-01-08 17:03:20 +0800 CST

Converta dados do formato largo para o formato longo, verificando os valores de uma linha

  • 772

tenho os dados abaixo

data<-structure(list(id = c("R_88j7lG37gLfxk22", "R_6DK8lERVf8lSQf4"
), t1_choice = c("2", "3"), t2_choice = c("1", "3"), t3_choice = c("1", 
"2"), t4_choice = c("2", "1")), row.names = c(NA, -2L), class = c("tbl_df", 
"tbl", "data.frame"))

esta é a primeira linha dos meus dados:

insira a descrição da imagem aqui

e quero convertê-lo para um formato longo como abaixo com esta lógica. Para cada participante existem 12 linhas, porque existem 4 tarefas (4 't's) e 3 perfis em cada tarefa (3 'p's). A coluna de escolha é um binário onde é 1 se o perfil naquela linha foi escolhido naquela tarefa e 0 se não foi, que é informação contida nas colunas 'tN_choice'.

insira a descrição da imagem aqui

meu método está errado

tasks<-4
profiles<-3
#column position of first task
cpft<-2

#column position of last task
cplt<-5

# Extracting choices
choices <- as.numeric(unlist(long[, cpft:cplt]))

# Create the new dataframe with id and choice columns
new_df <- data.frame(
  id = rep(data$id, each = tasks*profiles),
  choice = rep(0, times = length(id))
)

# Replacing values based on original choices
for (i in 1:(tasks*profiles)) {
  idx <- (i - 1) * profiles + choices[i]
  new_df$choice[idx] <- 1
}

1 respostas

  1. Best Answer

    Provavelmente você pode tentar isso

    data %>%
    pivot_longer(-id) %>%
    summarise(choice = list(+(seq(3) == value)), .by = c(id, name)) %>%
    unnest(choice) %>%
    print(n = 1000000L) # just to print more rows

    que dá

       id                name      choice
   <chr>             <chr>      <int>
 1 R_88j7lG37gLfxk22 t1_choice      0
 2 R_88j7lG37gLfxk22 t1_choice      1
 3 R_88j7lG37gLfxk22 t1_choice      0
 4 R_88j7lG37gLfxk22 t2_choice      1
 5 R_88j7lG37gLfxk22 t2_choice      0
 6 R_88j7lG37gLfxk22 t2_choice      0
 7 R_88j7lG37gLfxk22 t3_choice      1
 8 R_88j7lG37gLfxk22 t3_choice      0
 9 R_88j7lG37gLfxk22 t3_choice      0
10 R_88j7lG37gLfxk22 t4_choice      0
11 R_88j7lG37gLfxk22 t4_choice      1
12 R_88j7lG37gLfxk22 t4_choice      0
13 R_6DK8lERVf8lSQf4 t1_choice      0
14 R_6DK8lERVf8lSQf4 t1_choice      0
15 R_6DK8lERVf8lSQf4 t1_choice      1
16 R_6DK8lERVf8lSQf4 t2_choice      0
17 R_6DK8lERVf8lSQf4 t2_choice      0
18 R_6DK8lERVf8lSQf4 t2_choice      1
19 R_6DK8lERVf8lSQf4 t3_choice      0
20 R_6DK8lERVf8lSQf4 t3_choice      1
21 R_6DK8lERVf8lSQf4 t3_choice      0
22 R_6DK8lERVf8lSQf4 t4_choice      1
23 R_6DK8lERVf8lSQf4 t4_choice      0
24 R_6DK8lERVf8lSQf4 t4_choice      0
    • 3

relate perguntas