如何批量设置多列因子值为缺失时保留label属性

要批量将random_number = 3时的G开头因子变量设为缺失值，同时保留原变量的label属性，核心是不改变变量的因子类型结构，避免转字符再重构因子的操作。以下是两种可行方案：

方案1：使用replace()直接替换元素 #

replace()函数会直接修改向量中的指定元素，返回的仍是原类型的向量，因此能完整保留包括label在内的所有属性：

test_df_fixed <- test_df %>%
  dplyr::mutate(
    dplyr::across(
      .cols = dplyr::matches("[G]\\d{1,2}"),
      .fns = ~ replace(.x, random_number == 3, NA)
    )
  )

方案2：使用case_when()直接操作因子 #

无需转换为字符，直接在case_when()中返回原因子或NA，dplyr会自动匹配类型并保留属性：

test_df_fixed <- test_df %>%
  dplyr::mutate(
    dplyr::across(
      .cols = dplyr::matches("[G]\\d{1,2}"),
      .fns = ~ dplyr::case_when(
        random_number != 3 ~ .x,
        TRUE ~ NA
      )
    )
  )

验证属性保留 #

执行后可通过以下代码确认label属性未丢失：

attributes(test_df_fixed$G1)$label
# 输出："Question 1: Do you use R?"

原代码失效原因 #

你之前的代码将因子转为字符再重构新因子，新生成的因子是完全独立的对象，原变量的label属性不会被继承。而上述方案直接在原因子向量上修改元素，因此能保留所有原有属性。

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