如何批量修改haven包标记数据的指定值标签？

我使用tibble和haven包创建了如下tibble：

library(tibble)
library(haven)

# Create numerical values
values <- c(1:5)

# Combine values and colors into a named vector
color_choices <- setNames(values, c("Don't know", "Red", "Blue", "Green", "Yellow"))
name_choices <- setNames(values, c("Don't know", "John", "Paul", "Ringo", "George"))

# Create a tibble with the labelled column
data <- tibble(respondent_ID = seq(1:10),
               colour_choice = labelled(sample(1:5, 10, replace = TRUE), labels = color_choices),
               name_choice  = labelled(sample(1:5, 10, replace = TRUE), labels = name_choices))

我希望修改部分haven变量的标签：将多个变量中值为1的标签从“Don't know”改为“Not sure”。

目前我能实现单变量的修改：

data_replaced <- data
color_choices2 <- color_choices

names(color_choices2)[1] <- "Not sure"
val_labels(data_replaced$colour_choice) <- color_choices2

但该方法存在两个问题：

• 仅修改一个标签却需重新创建完整命名向量，直接使用val_labels(data_replaced$colour_choice) <- c("Not sure" = 1)会丢失其他标签；
• 不具备扩展性，无法批量处理多个变量。

我尝试用dplyr结合memisc::relabel()的方法但未成功，代码如下：

data_replaced <- data %>%
  mutate_at(vars(colour_choice, name_choice), ~ memisc::relabel(., "Don't know" = "Not sure"))

请问如何高效批量实现该需求？

方法1：自定义函数+dplyr::across()批量修改 #

先写一个针对单个haven标签变量的修改函数，再用dplyr的批量处理能力应用到多个变量上，既保留原有标签，又支持批量操作：

library(dplyr)

# 自定义函数：根据旧标签文本替换为新标签
relabel_by_text <- function(x, old_label, new_label) {
  current_labels <- val_labels(x)
  # 定位旧标签的位置并替换名称
  names(current_labels)[names(current_labels) == old_label] <- new_label
  val_labels(x) <- current_labels
  return(x)
}

# 批量应用到目标变量
data_replaced <- data %>%
  mutate(across(c(colour_choice, name_choice), 
                ~ relabel_by_text(., old_label = "Don't know", new_label = "Not sure")))

方法2：按目标值定位修改（更精准） #

如果明确要修改的是值为1的标签，直接通过值定位替换，不用依赖标签文本，避免标签文本重复的问题：

# 自定义函数：根据目标值替换对应标签
relabel_by_value <- function(x, target_val, new_label) {
  current_labels <- val_labels(x)
  names(current_labels)[current_labels == target_val] <- new_label
  val_labels(x) <- current_labels
  return(x)
}

data_replaced <- data %>%
  mutate(across(c(colour_choice, name_choice), 
                ~ relabel_by_value(., target_val = 1, new_label = "Not sure")))

方法3：用labelled包简化操作（推荐） #

引入labelled包（与haven完全兼容），它的set_value_labels()函数可以直接修改指定值的标签，自动保留其他原有标签，代码最简洁：

library(labelled)

data_replaced <- data %>%
  mutate(across(c(colour_choice, name_choice), 
                ~ set_value_labels(., `1` = "Not sure")))

内容的提问来源于stack exchange，提问作者rainbird