RStudio中如何将D2列值为Year的内容替换为D2_TEXT列对应值

你可以直接用已安装的dplyr/tidyverse包完成替换，核心逻辑是逐行判断D2列的取值，仅当取值为Year时调用同行D2_TEXT列的内容覆盖，其余值保留原样即可。

基础实现代码 #

library(dplyr)

# 请将代码里的df替换为你自己的数据集对象名称
df <- df %>%
  mutate(
    # 提前把因子类型的D2转为字符，避免因子水平不匹配报错
    D2 = as.character(D2),
    D2 = ifelse(D2 == "Year", D2_TEXT, D2)
  )

注意：如果你的D2列本身已经是字符（character）类型，可以省略D2 = as.character(D2)这一行。

如果需要更清晰的多条件判断逻辑，推荐用case_when()写法，后续加其他判断规则时更方便：

df <- df %>%
  mutate(
    D2 = as.character(D2),
    D2 = case_when(
      D2 == "Year" ~ as.character(D2_TEXT),
      # 其余取值全部保留原值，包括NA、"Prefer Not To Answer"
      TRUE ~ D2
    )
  )

可选调整 #

• 如果你希望最终D2列为纯数值格式，把"Prefer Not To Answer"和NA统一转成R识别的数值类缺失值，可以用下面的代码：

df <- df %>%
  mutate(
    D2 = case_when(
      D2 == "Year" ~ as.numeric(D2_TEXT),
      TRUE ~ NA_real_
    )
  )

• 不想用tidyverse管道语法的话，基础R也可以快速实现，同样要注意提前处理因子类型：

df$D2 <- as.character(df$D2)
df$D2[which(df$D2 == "Year")] <- df$D2_TEXT[which(df$D2 == "Year")]

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