如何在R中批量重编码NAMEx格式变量及实现条件重编码？

Base R 解决方案 #

你之前用lapply报错，核心问题是参数传递方式不对——lapply不需要额外传data参数，直接对目标列的子集操作就行。举个例子，假设你的重编码规则是把1-3替换为1，4-6替换为2，7-9替换为3：

# 先筛选出所有以NAME开头的列
name_cols <- grep("^NAME", names(your_data), value = TRUE)

# 定义重编码函数
recode_rule <- function(x) {
  ifelse(x %in% 1:3, 1,
         ifelse(x %in% 4:6, 2,
                ifelse(x %in% 7:9, 3, x))) # 保留其他值不变
}

# 应用到目标列
your_data[name_cols] <- lapply(your_data[name_cols], recode_rule)

如果用car::recode，要注意它只接受向量作为输入，所以要在lapply里对每一列单独调用：

library(car)
your_data[name_cols] <- lapply(your_data[name_cols], function(x) {
  recode(x, "1:3=1; 4:6=2; 7:9=3")
})

你之前的错误unused argument (data = ...)，应该是错误地给recode传了data参数——car::recode不需要这个，直接传向量就行。

dplyr 更简洁的写法 #

如果用tidyverse，用across可以一步搞定：

library(dplyr)
your_data <- your_data %>%
  mutate(across(starts_with("NAME"), ~ recode(., `1:3`=1, `4:6`=2, `7:9`=3)))

针对你写的myrecode <- function(x,y) {x[y==27] = 2}，这些细节必须注意：

• 长度匹配：x和y的长度必须完全一致，否则R会自动循环补齐y的长度，导致完全不符合预期的结果。比如y长度是x的一半时，R会重复y两次来匹配x，这几乎不是你想要的。
• 函数要返回修改后的值：R的函数参数是按值传递的，你直接在函数里修改x不会影响原数据框的列。正确写法是返回修改后的x：

  myrecode <- function(x, y) {
    x[y == 27] <- 2
    return(x)
  }
  

• 处理NA值：如果y里有NA，y==27会返回NA，这部分x不会被修改。如果需要把y为NA的情况也处理，要明确加上条件，比如x[is.na(y) | y==27] <- 2。
• 批量应用的正确姿势：如果要给多个NAMEx列做基于同一个y的条件重编码，要注意正确传递y参数：

  # Base R
  your_data[name_cols] <- lapply(your_data[name_cols], myrecode, y = your_data$y)
  
  # dplyr
  your_data <- your_data %>%
    mutate(across(starts_with("NAME"), ~ myrecode(., y = y)))
  

• 因子类型的坑：如果x是因子类型，直接赋值2会报错。需要先把因子转成数值型（as.numeric(as.character(x))），或者修改因子的水平，比如levels(x)[y==27] <- "2"（如果要保留因子类型的话）。

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