R语言中根据target列指定列名从其他列复制值的问题

你的代码出现错误的核心原因有两个：

1. 条件判断中错误添加了方括号[]，但原数据target列的取值是col1/col2这类无方括号的字符串，导致匹配逻辑失效；
2. 直接覆盖target列会丢失原始的列名标记，后续判断无法精准匹配目标行，尤其在大型数据集中容易引发索引错位或值覆盖问题。

以下是几种高效可靠的解决方案：

方法1：基础R向量化实现（推荐，适合大型数据集） #

通过矩阵索引直接按行提取对应列的值，无需循环，效率极高：

# 保留原始target列的列名，避免覆盖后丢失匹配依据
original_target <- df$target
# 生成每行对应的行号+列号索引矩阵，提取对应值替换target列
df$target <- df[cbind(seq_len(nrow(df)), match(original_target, colnames(df)))]

原理：cbind(seq_len(nrow(df)), match(...))生成一个n行2列的矩阵，每行存储当前行的行号和目标列的列号，用这个矩阵索引数据框即可精准提取对应值。

方法2：tidyverse/dplyr风格实现 #

如果习惯使用tidyverse生态，可通过行处理实现：

library(dplyr)

df <- df %>%
  rowwise() %>%
  mutate(target = pull(cur_data(), target)) %>%
  ungroup()

原理：rowwise()让函数逐行处理数据，pull(cur_data(), target)会根据当前行的target值，提取当前数据行中对应列的内容。

方法3：修复原有代码逻辑（不推荐，仅作参考） #

若坚持使用原有思路，需先保留原始target列的取值，避免覆盖后无法匹配：

# 复制原始target列作为匹配依据
df$original_target <- df$target

# 基于原始列进行匹配替换
df$target[df$original_target == "col1"] <- df$col1[df$original_target == "col1"]
df$target[df$original_target == "col2"] <- df$col2[df$original_target == "col2"]
df$target[df$original_target == "col3"] <- df$col3[df$original_target == "col3"]
df$target[df$original_target == "col4"] <- df$col4[df$original_target == "col4"]

# 清理临时列
df$original_target <- NULL

注意：此方法需确保条件判断中的字符串与原始target列的取值完全一致（去掉多余的方括号）。

验证示例数据 #

以你提供的示例数据为例，使用方法1处理后，会得到符合预期的结果（注：示例期望结果中第五行的fox应为原数据的elephant，属于笔误，代码会正确提取对应列的原始值）。

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