Aplique o processo de dados a todas as linhas do conjunto de dados usando um loop for()

Sua abordagem não parece divertida no momento. Em vez disso, você pode atribuir dados mais favoráveis names​​(ou seja, vezes como um sufixo em vez do formato de prefixo estranho) reshapeduas vezes ao formato longo desejado e usá-los model.matrixpara obter a codificação one-hot. Não tenho certeza de como você obteve a variável de escolha, já que a codificou, mas você saberá disso. Para obter todos os níveis, precisamos type.convert(as.is=FALSE)obter factors e definir contrastscomo FALSE.

> names(long)[-1] <- 
+   strsplit(names(long)[-1], '_') |>
+   sapply(\(x) paste(paste(c(rev(x[-1])), collapse='_'), x[1], sep='.'))
> res <- reshape(as.data.frame(long), varying=-1, direction='l') |>
+   reshape(direction='l', varying=-(1:3), new.row.names=1:1e9, sep='_') |>
+   type.convert(as.is=FALSE)
> cbind(res[1:3], model.matrix(~ 0 + env + eth + pri, res, 
+                              contrasts.arg = list(eth=contrasts(res$eth, contrasts=FALSE),
+                                                   pri=contrasts(res$pri, contrasts=FALSE))))
                  id time choice envhigh_env envlow_env envmid_env ethhigh_eth ethlow_eth ethmid_eth pri$125 pri$25 pri$75
1  R_88j7lG37gLfxk22   p1      2           1          0          0           0          1          0       1      0      0
2  R_6DK8lERVf8lSQf4   p1      3           0          0          1           0          0          1       0      1      0
3  R_88j7lG37gLfxk22   p1      1           1          0          0           0          1          0       0      0      1
4  R_6DK8lERVf8lSQf4   p1      3           0          0          1           1          0          0       1      0      0
5  R_88j7lG37gLfxk22   p1      1           1          0          0           1          0          0       1      0      0
6  R_6DK8lERVf8lSQf4   p1      2           0          0          1           0          0          1       1      0      0
7  R_88j7lG37gLfxk22   p1      2           0          1          0           0          1          0       0      0      1
8  R_6DK8lERVf8lSQf4   p1      1           1          0          0           0          1          0       1      0      0
9  R_88j7lG37gLfxk22   p2      2           0          0          1           1          0          0       0      1      0
10 R_6DK8lERVf8lSQf4   p2      3           1          0          0           0          1          0       0      0      1
11 R_88j7lG37gLfxk22   p2      1           0          0          1           0          0          1       1      0      0
12 R_6DK8lERVf8lSQf4   p2      3           0          1          0           0          1          0       0      0      1
13 R_88j7lG37gLfxk22   p2      1           0          0          1           0          1          0       0      1      0
14 R_6DK8lERVf8lSQf4   p2      2           1          0          0           0          1          0       0      1      0
15 R_88j7lG37gLfxk22   p2      2           1          0          0           0          0          1       1      0      0
16 R_6DK8lERVf8lSQf4   p2      1           0          0          1           0          0          1       0      1      0
17 R_88j7lG37gLfxk22   p3      2           0          1          0           0          0          1       0      0      1
18 R_6DK8lERVf8lSQf4   p3      3           0          1          0           0          1          0       0      0      1
19 R_88j7lG37gLfxk22   p3      1           0          0          1           0          0          1       0      0      1
20 R_6DK8lERVf8lSQf4   p3      3           1          0          0           1          0          0       0      0      1
21 R_88j7lG37gLfxk22   p3      1           0          1          0           1          0          0       0      1      0
22 R_6DK8lERVf8lSQf4   p3      2           0          1          0           1          0          0       0      0      1
23 R_88j7lG37gLfxk22   p3      2           0          1          0           1          0          0       0      1      0
24 R_6DK8lERVf8lSQf4   p3      1           0          1          0           0          0          1       1      0      0

Dados:

> dput(long)
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"), t1_p1_env = c("high_env", "mid_env"
), t1_p1_eth = c("low_eth", "mid_eth"), t1_p1_pri = c("$125", 
"$25"), t1_p2_env = c("mid_env", "high_env"), t1_p2_eth = c("high_eth", 
"low_eth"), t1_p2_pri = c("$25", "$75"), t1_p3_env = c("low_env", 
"low_env"), t1_p3_eth = c("mid_eth", "low_eth"), t1_p3_pri = c("$75", 
"$75"), t2_p1_env = c("high_env", "mid_env"), t2_p1_eth = c("low_eth", 
"high_eth"), t2_p1_pri = c("$75", "$125"), t2_p2_env = c("mid_env", 
"low_env"), t2_p2_eth = c("mid_eth", "low_eth"), t2_p2_pri = c("$125", 
"$75"), t2_p3_env = c("mid_env", "high_env"), t2_p3_eth = c("mid_eth", 
"high_eth"), t2_p3_pri = c("$75", "$75"), t3_p1_env = c("high_env", 
"mid_env"), t3_p1_eth = c("high_eth", "mid_eth"), t3_p1_pri = c("$125", 
"$125"), t3_p2_env = c("mid_env", "high_env"), t3_p2_eth = c("low_eth", 
"low_eth"), t3_p2_pri = c("$25", "$25"), t3_p3_env = c("low_env", 
"low_env"), t3_p3_eth = c("high_eth", "high_eth"), t3_p3_pri = c("$25", 
"$75"), t4_p1_env = c("low_env", "high_env"), t4_p1_eth = c("low_eth", 
"low_eth"), t4_p1_pri = c("$75", "$125"), t4_p2_env = c("high_env", 
"mid_env"), t4_p2_eth = c("mid_eth", "mid_eth"), t4_p2_pri = c("$125", 
"$25"), t4_p3_env = c("low_env", "low_env"), t4_p3_eth = c("high_eth", 
"mid_eth"), t4_p3_pri = c("$25", "$125")), row.names = c(NA, 
-2L), class = c("tbl_df", "tbl", "data.frame"))

I think here is the answer
new_df<-structure(list(id = c("R_88j7lG37gLfxk22", "R_88j7lG37gLfxk22", 
                              "R_88j7lG37gLfxk22", "R_88j7lG37gLfxk22", "R_88j7lG37gLfxk22", 
                              "R_88j7lG37gLfxk22", "R_88j7lG37gLfxk22", "R_88j7lG37gLfxk22", 
                              "R_88j7lG37gLfxk22", "R_88j7lG37gLfxk22", "R_88j7lG37gLfxk22", 
                              "R_88j7lG37gLfxk22", "R_6DK8lERVf8lSQf4", "R_6DK8lERVf8lSQf4", 
                              "R_6DK8lERVf8lSQf4", "R_6DK8lERVf8lSQf4", "R_6DK8lERVf8lSQf4", 
                              "R_6DK8lERVf8lSQf4", "R_6DK8lERVf8lSQf4", "R_6DK8lERVf8lSQf4", 
                              "R_6DK8lERVf8lSQf4", "R_6DK8lERVf8lSQf4", "R_6DK8lERVf8lSQf4", 
                              "R_6DK8lERVf8lSQf4"), choice = c(0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 
                                                               1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1), low_env = c(NA, NA, 
                                                                                                                      NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
                                                                                                                      NA, NA, NA, NA, NA, NA), mid_env = c(NA, NA, NA, NA, NA, NA, 
                                                                                                                                                           NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
                                                                                                                                                           NA, NA), high_env = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
                                                                                                                                                                                 NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), low_eth = c(NA, 
                                                                                                                                                                                                                                                      NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
                                                                                                                                                                                                                                                      NA, NA, NA, NA, NA, NA, NA), mid_eth = c(NA, NA, NA, NA, NA, 
                                                                                                                                                                                                                                                                                               NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
                                                                                                                                                                                                                                                                                               NA, NA, NA), high_eth = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, 
                                                                                                                                                                                                                                                                                                                         NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), 
                       `low_pri($25)` = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
                                          NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), 
                       `mid_pri($75)` = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
                                          NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), 
                       `high_pri($125)` = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, 
                                            NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA
                       )), row.names = c(NA, 24L), class = "data.frame")


long<-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"), t1_p1_env = c("high_env", "mid_env"
                                                                   ), t1_p1_eth = c("low_eth", "mid_eth"), t1_p1_pri = c("$125", 
                                                                                                                         "$25"), t1_p2_env = c("mid_env", "high_env"), t1_p2_eth = c("high_eth", 
                                                                                                                                                                                     "low_eth"), t1_p2_pri = c("$25", "$75"), t1_p3_env = c("low_env", 
                                                                                                                                                                                                                                            "low_env"), t1_p3_eth = c("mid_eth", "low_eth"), t1_p3_pri = c("$75", 
                                                                                                                                                                                                                                                                                                           "$75"), t2_p1_env = c("high_env", "mid_env"), t2_p1_eth = c("low_eth", 
                                                                                                                                                                                                                                                                                                                                                                       "high_eth"), t2_p1_pri = c("$75", "$125"), t2_p2_env = c("mid_env", 
                                                                                                                                                                                                                                                                                                                                                                                                                                "low_env"), t2_p2_eth = c("mid_eth", "low_eth"), t2_p2_pri = c("$125", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               "$75"), t2_p3_env = c("mid_env", "high_env"), t2_p3_eth = c("mid_eth", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           "high_eth"), t2_p3_pri = c("$75", "$75"), t3_p1_env = c("high_env", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   "mid_env"), t3_p1_eth = c("high_eth", "mid_eth"), t3_p1_pri = c("$125", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   "$125"), t3_p2_env = c("mid_env", "high_env"), t3_p2_eth = c("low_eth", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "low_eth"), t3_p2_pri = c("$25", "$25"), t3_p3_env = c("low_env", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       "low_env"), t3_p3_eth = c("high_eth", "high_eth"), t3_p3_pri = c("$25", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        "$75"), t4_p1_env = c("low_env", "high_env"), t4_p1_eth = c("low_eth", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    "low_eth"), t4_p1_pri = c("$75", "$125"), t4_p2_env = c("high_env", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            "mid_env"), t4_p2_eth = c("mid_eth", "mid_eth"), t4_p2_pri = c("$125", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           "$25"), t4_p3_env = c("low_env", "low_env"), t4_p3_eth = c("high_eth", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      "mid_eth"), t4_p3_pri = c("$25", "$125")), row.names = c(NA, 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               -2L), class = c("tbl_df", "tbl", "data.frame"))



library(dplyr)

# Modify column names in long
names(long)[-1] <- strsplit(names(long)[-1], '_') %>%
  sapply(function(x) paste(paste(c(rev(x[-1])), collapse='_'), x[1], sep='.'))

# Reshape long dataset
res <- long %>%
  as.data.frame() %>%
  reshape(varying=-1, direction='long') %>%
  reshape(direction='long', varying=-(1:3), new.row.names=1:1e9, sep='_')

# Manually create dummy variables for env, eth, and pri
env_dummy <- model.matrix(~ 0 + env, res, contrasts = FALSE)
eth_dummy <- model.matrix(~ 0 + eth, res, contrasts = FALSE)
pri_dummy <- model.matrix(~ 0 + pri, res, contrasts = FALSE)

# Combine the original columns with the dummy variables
model_matrix <- cbind(res[1:3], env_dummy, eth_dummy, pri_dummy)

# Display the result
print(model_matrix)

print(model_matrix)
                  id time choice envhigh_env envlow_env envmid_env ethhigh_eth ethlow_eth ethmid_eth pri$125
1  R_88j7lG37gLfxk22   p1      2           1          0          0           0          1          0       1
2  R_6DK8lERVf8lSQf4   p1      3           0          0          1           0          0          1       0
3  R_88j7lG37gLfxk22   p1      1           1          0          0           0          1          0       0
4  R_6DK8lERVf8lSQf4   p1      3           0          0          1           1          0          0       1
5  R_88j7lG37gLfxk22   p1      1           1          0          0           1          0          0       1
6  R_6DK8lERVf8lSQf4   p1      2           0          0          1           0          0          1       1
7  R_88j7lG37gLfxk22   p1      2           0          1          0           0          1          0       0
8  R_6DK8lERVf8lSQf4   p1      1           1          0          0           0          1          0       1
9  R_88j7lG37gLfxk22   p2      2           0          0          1           1          0          0       0
10 R_6DK8lERVf8lSQf4   p2      3           1          0          0           0          1          0       0
11 R_88j7lG37gLfxk22   p2      1           0          0          1           0          0          1       1
12 R_6DK8lERVf8lSQf4   p2      3           0          1          0           0          1          0       0
13 R_88j7lG37gLfxk22   p2      1           0          0          1           0          1          0       0
14 R_6DK8lERVf8lSQf4   p2      2           1          0          0           0          1          0       0
15 R_88j7lG37gLfxk22   p2      2           1          0          0           0          0          1       1
16 R_6DK8lERVf8lSQf4   p2      1           0          0          1           0          0          1       0
17 R_88j7lG37gLfxk22   p3      2           0          1          0           0          0          1       0
18 R_6DK8lERVf8lSQf4   p3      3           0          1          0           0          1          0       0
19 R_88j7lG37gLfxk22   p3      1           0          0          1           0          0          1       0
20 R_6DK8lERVf8lSQf4   p3      3           1          0          0           1          0          0       0
21 R_88j7lG37gLfxk22   p3      1           0          1          0           1          0          0       0
22 R_6DK8lERVf8lSQf4   p3      2           0          1          0           1          0          0       0
23 R_88j7lG37gLfxk22   p3      2           0          1          0           1          0          0       0
24 R_6DK8lERVf8lSQf4   p3      1           0          1          0           0          0          1       1
   pri$25 pri$75
1       0      0
2       1      0
3       0      1
4       0      0
5       0      0
6       0      0
7       0      1
8       0      0
9       1      0
10      0      1
11      0      0
12      0      1
13      1      0
14      1      0
15      0      0
16      1      0
17      0      1
18      0      1
19      0      1
20      0      1
21      1      0
22      0      1
23      1      0
24      0      0

Você pode usar dplyr

library(dplyr)

# Modify column names in long
names(long)[-1] <- strsplit(names(long)[-1], '_') %>%
  sapply(function(x) paste(paste(c(rev(x[-1])), collapse='_'), x[1], sep='.'))

# Reshape long dataset
res <- long %>%
  as.data.frame() %>%
  reshape(varying=-1, direction='long') %>%
  reshape(direction='long', varying=-(1:3), new.row.names=1:1e9, sep='_')

# Create a model matrix
model_matrix <- cbind(res[1:3], model.matrix(~ 0 + env + eth + pri, res))

# Display the result
print(model_matrix)

id time choice envhigh_env envlow_env envmid_env ethlow_eth ethmid_eth pri$25 pri$75
1  R_88j7lG37gLfxk22   p1      2           1          0          0          1          0      0      0
2  R_6DK8lERVf8lSQf4   p1      3           0          0          1          0          1      1      0
3  R_88j7lG37gLfxk22   p1      1           1          0          0          1          0      0      1
4  R_6DK8lERVf8lSQf4   p1      3           0          0          1          0          0      0      0
5  R_88j7lG37gLfxk22   p1      1           1          0          0          0          0      0      0
6  R_6DK8lERVf8lSQf4   p1      2           0          0          1          0          1      0      0
7  R_88j7lG37gLfxk22   p1      2           0          1          0          1          0      0      1
8  R_6DK8lERVf8lSQf4   p1      1           1          0          0          1          0      0      0
9  R_88j7lG37gLfxk22   p2      2           0          0          1          0          0      1      0
10 R_6DK8lERVf8lSQf4   p2      3           1          0          0          1          0      0      1
11 R_88j7lG37gLfxk22   p2      1           0          0          1          0          1      0      0
12 R_6DK8lERVf8lSQf4   p2      3           0          1          0          1          0      0      1
13 R_88j7lG37gLfxk22   p2      1           0          0          1          1          0      1      0
14 R_6DK8lERVf8lSQf4   p2      2           1          0          0          1          0      1      0
15 R_88j7lG37gLfxk22   p2      2           1          0          0          0          1      0      0
16 R_6DK8lERVf8lSQf4   p2      1           0          0          1          0          1      1      0
17 R_88j7lG37gLfxk22   p3      2           0          1          0          0          1      0      1
18 R_6DK8lERVf8lSQf4   p3      3           0          1          0          1          0      0      1
19 R_88j7lG37gLfxk22   p3      1           0          0          1          0          1      0      1
20 R_6DK8lERVf8lSQf4   p3      3           1          0          0          0          0      0      1
21 R_88j7lG37gLfxk22   p3      1           0          1          0          0          0      1      0
22 R_6DK8lERVf8lSQf4   p3      2           0          1          0          0          0      0      1
23 R_88j7lG37gLfxk22   p3      2           0          1          0          0          0      1      0
24 R_6DK8lERVf8lSQf4   p3      1           0          1          0          0          1      0      0

oi, mas se eu executar isso

library(dplyr)

# Modify column names in long
names(long)[-1] <- strsplit(names(long)[-1], '_') %>%
  sapply(function(x) paste(paste(c(rev(x[-1])), collapse='_'), x[1], sep='.'))

# Reshape long dataset
res <- long %>%
  as.data.frame() %>%
  reshape(varying=-1, direction='long') %>%
  reshape(direction='long', varying=-(1:3), new.row.names=1:100, sep='_')

# Ensure all combinations of env, eth, and pri are present
all_combinations <- expand.grid(env = unique(res$env), eth = unique(res$eth), pri = c("$25", "$75", "$125"))

# Merge with res to fill missing combinations with NA
res <- merge(all_combinations, res, all = TRUE)

# Convert 'pri' to factor with appropriate levels
res$pri <- factor(res$pri, levels = c("$25", "$75", "$125"))
res$eth <- factor(res$pri, levels = c("$25", "$75", "$125"))

# Create a model matrix manually including dummy variables for pri
model_matrix <- cbind(res[1:3], model.matrix(~ 0 + env + eth + pri - 1, res))

# Display the result
print(model_matrix)
View(model_matrix)
env      eth  pri envhigh_env envmid_env envlow_env ethmid_eth ethhigh_eth pri$75 pri$125
1  high_env  low_eth  $25           1          0          0          0           0      0       0
2  high_env  low_eth  $75           1          0          0          0           0      1       0
3  high_env  low_eth  $75           1          0          0          0           0      1       0
4  high_env  low_eth $125           1          0          0          0           0      0       1
5  high_env  low_eth $125           1          0          0          0           0      0       1
6  high_env  mid_eth  $25           1          0          0          1           0      0       0
7  high_env  mid_eth  $75           1          0          0          1           0      1       0
8  high_env  mid_eth $125           1          0          0          1           0      0       1
9  high_env high_eth  $25           1          0          0          0           1      0       0
10 high_env high_eth  $75           1          0          0          0           1      1       0
11 high_env high_eth $125           1          0          0          0           1      0       1
12  mid_env  low_eth  $25           0          1          0          0           0      0       0
13  mid_env  low_eth  $75           0          1          0          0           0      1       0
14  mid_env  low_eth $125           0          1          0          0           0      0       1
15  mid_env  mid_eth  $25           0          1          0          1           0      0       0
16  mid_env  mid_eth  $25           0          1          0          1           0      0       0
17  mid_env  mid_eth  $75           0          1          0          1           0      1       0
18  mid_env  mid_eth $125           0          1          0          1           0      0       1
19  mid_env  mid_eth $125           0          1          0          1           0      0       1
20  mid_env high_eth  $25           0          1          0          0           1      0       0
21  mid_env high_eth  $75           0          1          0          0           1      1       0
22  mid_env high_eth $125           0          1          0          0           1      0       1
23  low_env  low_eth  $25           0          0          1          0           0      0       0
24  low_env  low_eth  $75           0          0          1          0           0      1       0
25  low_env  low_eth  $75           0          0          1          0           0      1       0
26  low_env  low_eth  $75           0          0          1          0           0      1       0
27  low_env  low_eth $125           0          0          1          0           0      0       1
28  low_env  mid_eth  $25           0          0          1          1           0      0       0
29  low_env  mid_eth  $75           0          0          1          1           0      1       0
30  low_env  mid_eth $125           0          0          1          1           0      0       1
31  low_env high_eth  $25           0          0          1          0           1      0       0
32  low_env high_eth  $25           0          0          1          0           1      0       0
33  low_env high_eth  $75           0          0          1          0           1      1       0
34  low_env high_eth $125           0          0          1          0           1      0       1

outras duas consultas foram respondidas, mas ainda estão faltando, acho que não será capaz de cobrir todos os níveis, você pode ver em um caso que está chegando na 24ª linha e, neste caso, está chegando na 34ª linha, mas não consigo retificar mais