在R中如何根据Very.last列值匹配列名将对应单元格替换为NA？

示例数据构造 #

先构造符合需求的示例数据框，方便测试：

library(tibble)
df <- tibble(
  ID = c(123, 124),
  Very.last = c("Last.8", "Last.6"),
  Last.1 = as.Date(c("2021-01-01", "2021-01-10")),
  Last.6 = as.Date(c("2021-06-01", "2021-04-15")),
  Last.7 = as.Date(c("2021-07-01", "2021-07-15"))
)

方法1：使用dplyr（tidyverse） #

利用rowwise()逐行处理，结合非标准求值指定目标列：

library(dplyr)

df_processed <- df %>%
  rowwise() %>%
  mutate(
    # 仅当Very.last的值存在于列名中时，将对应列设为NA
    !!Very.last := if (Very.last %in% colnames(df)) NA else .data[[Very.last]]
  ) %>%
  ungroup()

解释：

• rowwise()让后续操作按行执行
• !!Very.last将字符串形式的列名转为实际列引用
• .data[[Very.last]]获取当前行目标列的原始值
• 先判断列名是否存在，避免无对应列时出错

方法2：基础R循环 #

如果不习惯tidyverse，用基础R循环也能实现：

for (i in seq(nrow(df))) {
  target_col <- df$Very.last[i]
  # 检查目标列是否存在于数据框中
  if (target_col %in% colnames(df)) {
    df[i, target_col] <- NA
  }
}

解释：

• 遍历每一行，提取当前行的Very.last值作为目标列名
• 验证列名存在后，直接将对应位置设为NA

结果验证 #

处理后的数据框会符合需求：

• ID=124的行，Last.6列的值被替换为NA
• ID=123的行，因Last.8不是列名，无变化

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