如何在R语言中对多列进行重编码？已尝试操作仍遇困难

我明白你现在的困扰啦——你想对ZR1、ZR2、ZR3这几列批量进行重编码，但目前的循环只处理了第一列，没覆盖所有目标列对吧？咱们先梳理下现有代码的问题：你的循环只跑了i=1，而且赋值语句放在了循环外面，所以只生成了Z1列。下面给你几个靠谱的解决方案：

方法一：基础循环修正版 #

这是在你原有代码基础上调整的，适合习惯基础R语法的朋友：

# 首先定义统一的重编码映射表
code_map <- c(A=4, B=3, C=2, D=1, E=0)

# 遍历所有目标ZR列（这里是1到3）
for (i in 1:3) {
  ZRi <- paste0("ZR", i)  # 拼接当前要处理的ZR列名
  Zi <- paste0("Z", i)    # 拼接要生成的新列名
  # 对当前ZR列进行重编码，赋值给新列
  df[, Zi] <- code_map[df[, ZRi]]
}

运行后，你就能得到Z1、Z2、Z3三列，分别对应ZR1、ZR2、ZR3的编码结果。

方法二：tidyverse 简洁写法 #

如果你用dplyr这类tidyverse工具包，代码会更简洁直观，不需要手动写循环：

library(dplyr)
# 加载stringr包处理列名（让新列名更规范）
library(stringr)

# 定义重编码映射
code_map <- c(A=4, B=3, C=2, D=1, E=0)

df <- df %>%
  # 批量处理所有以ZR开头的列，应用重编码并设置新列名
  mutate(across(
    starts_with("ZR"), 
    ~ code_map[.x], 
    .names = "Z{str_remove(col, 'ZR')}"  # 自动把ZR1转为Z1，ZR2转为Z2
  ))

这个方法会自动识别所有ZR开头的列，批量生成对应的Z列，扩展性更强——如果以后新增ZR4，代码不需要修改就能自动处理。

方法三：data.table 高效写法 #

如果你的数据量很大，data.table的处理速度会更快：

library(data.table)
# 把普通数据框转成data.table格式
setDT(df)

code_map <- c(A=4, B=3, C=2, D=1, E=0)

# 批量处理ZR列，生成对应的Z列
df[, paste0("Z", 1:3) := lapply(.SD, function(x) code_map[x]), .SDcols = paste0("ZR", 1:3)]

这里.SDcols指定要处理的列集合，lapply对每一列应用重编码，最后直接赋值给新列，语法简洁且效率很高。

你可以根据自己的习惯选择适合的方法，运行后就能得到你想要的多列重编码结果啦～

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