在R中按条件修改data.frame指定列值，保留其余列不变

我来帮你搞定这个替换需求！你之前的嵌套ifelse代码之所以没达到预期，是因为它对整个数据框的所有列都执行了替换操作，包括你想保留的item、study.name和group.name列。我们需要只针对后面的数值列（Time、Time.1、Setting、Setting.1）做替换，同时保留前3列不变。

下面提供两种常用的解决方案：

方法一：基础R实现（无需额外包） #

这种方法适合不想加载第三方包的场景，核心是只选择需要修改的列进行操作：

# 先复制原数据框，避免修改原始数据
ir1 <- ir

# 定义数值到字符串的映射关系，比嵌套ifelse更简洁
replace_rules <- c("0" = "untimed", "1" = "timed", "2" = "ESL", "3" = "EFL")

# 选择第4到第7列（也就是Time到Setting.1），批量替换
ir1[, 4:7] <- lapply(ir1[, 4:7], function(col) {
  replace_rules[as.character(col)]
})

如果你更习惯用嵌套ifelse，也可以这样写（只针对目标列）：

ir1 <- ir
ir1[, 4:7] <- lapply(ir1[, 4:7], function(col) {
  ifelse(col == 2, "ESL",
         ifelse(col == 3, "EFL",
                ifelse(col == 1, "timed", "untimed")))
})

方法二：用dplyr包实现（更直观易读） #

如果你熟悉tidyverse生态，用dplyr的across和case_when可以让代码逻辑更清晰：

# 如果没安装dplyr先安装：install.packages("dplyr")
library(dplyr)

ir1 <- ir %>%
  # 对指定的列执行替换操作
  mutate(across(c(Time, Time.1, Setting, Setting.1), ~ case_when(
    .x == 2 ~ "ESL",
    .x == 3 ~ "EFL",
    .x == 1 ~ "timed",
    .x == 0 ~ "untimed"
  )))

验证结果 #

运行完上面任意一种代码后，你可以打印ir1查看效果：

print(ir1)

你会看到前3列（item、study.name、group.name）完全保留原始数据，后面的列已经按照你的规则替换成了对应的字符串。

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