一种方法是首先将数据字典拆分为list，其中包含每个name的重编码向量。第二步，可以使用across中的list对数据集的列进行重编码：

library(dplyr, w = FALSE)
library(tibble)

dic_split <- split(dic, dic$name) %>%
  lapply(function(x) {
    x %>%
      select(-name) %>%
      tibble::deframe()
  })

rec_helper <- function(x, col) {
  recode(x, !!!dic_split[[col]])
}

responses %>%
  mutate(across(
    all_of(intersect(names(dic_split), names(responses))),
    ~ rec_helper(.x, cur_column())
  ))
#> # A tibble: 3 × 4
#>   n_case movie song            sex   
#>    <dbl> <chr> <chr>           <chr> 
#> 1      1 Lego  Happy Birthday  male  
#> 2      2 Shrek Hallelujah      male  
#> 3      3 Lego  Melancholy Hill female

你可以做得更长、更宽、更广：

library(tidyverse)

responses |>
  pivot_longer(-n_case) |>
  left_join(dic, by = c("name", "value")) |>
  select(-value) |>
  pivot_wider(names_from = name, values_from = tag)
#> # A tibble: 3 x 4
#>   n_case movie song            sex   
#>    <dbl> <chr> <chr>           <chr> 
#> 1      1 Lego  Happy Birthday  male  
#> 2      2 Shrek Hallelujah      male  
#> 3      3 Lego  Melancholy Hill female

或具有因子：

responses |>
  mutate(across(movie:sex, \(x) as.character(factor(x,
                                                    levels = dic[dic$name == cur_column(),]$value,
                                                    labels = dic[dic$name == cur_column(),]$tag))))
#> # A tibble: 3 x 4
#>   n_case movie song            sex   
#>    <dbl> <chr> <chr>           <chr> 
#> 1      1 Lego  Happy Birthday  male  
#> 2      2 Shrek Hallelujah      male  
#> 3      3 Lego  Melancholy Hill female

您可以将字典重新调整为宽格式，然后使用它在响应数据中查找值：

library(dplyr)
library(tidyr)

dic_wide <- dic %>%
  pivot_wider(names_from = name, values_from = tag)

responses %>%
  mutate(across(-n_case, ~ dic_wide[[cur_column()]][match(.x, dic_wide$value)]))

# A tibble: 3 × 4
  n_case movie song            sex   
   <dbl> <chr> <chr>           <chr> 
1      1 Lego  Happy Birthday  male  
2      2 Shrek Hallelujah      male  
3      3 Lego  Melancholy Hill female