R语言：dataframe中ifelse语句使用问题，需将小于3的值置0

我来帮你搞定这个问题！你之前的代码之所以返回类似列表/矩阵的结果，是因为直接把ifelse处理子列后的结果赋值给了d2，这会丢失原数据框的结构和第一列y1。下面给你两种能完美保留原数据框结构的解决方案：

方法一：基础R原生操作 #

先复制原数据框，再针对性修改指定列，这样既能保留所有列，又能维持数据框的结构：

# 先创建你的原数据框
d1 <- data.frame(y1 = c("A","B","C"), y2 = c(1, 2, 3), y3 = c(4, 5, 6))

# 复制原数据框，避免修改原数据
d2 <- d1
# 对第2到3列（也就是y2和y3）进行值替换
d2[, 2:3] <- ifelse(d2[, 2:3] > 3, d2[, 2:3], 0)

执行后d2的结构和d1完全一致，只是y2里小于3的1、2被改成了0，y3保持不变。

方法二：用dplyr包更简洁处理 #

如果你常用tidyverse系列工具，用dplyr的mutate + across组合会更直观，代码可读性更高：

library(dplyr)

# 创建原数据框
d1 <- data.frame(y1 = c("A","B","C"), y2 = c(1, 2, 3), y3 = c(4, 5, 6))

# 对指定列应用替换规则，返回结构一致的数据框
d2 <- d1 %>%
  mutate(across(c(y2, y3), ~ifelse(.x > 3, .x, 0)))

across(c(y2, y3))指定要处理的列，~ifelse(...)是对每列应用的替换逻辑，处理后直接得到和原数据框结构完全相同的结果。

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