如何使用apply函数替换DataFrame多值？附星级替换需求及代码

嘿，我注意到你想用apply和ifelse实现DataFrame的数值替换，但原代码的语法有问题——ifelse不支持那种多条件的管道写法，逻辑判断的结构也不符合R的语法规则。咱们来修正一下，完美实现你要的替换规则！

先分析原代码的问题 #

你写的ifelse(x > 12, "***"|x > 10, "**"|x >= 8, "*"|x <8, "NS", x)存在几个明显问题：

• ifelse的参数结构是ifelse(条件, 满足值, 不满足值)，不支持多组条件直接罗列
• "***"|x > 10这种写法是类型不匹配的逻辑或，字符串和布尔值无法进行逻辑运算

方法一：嵌套ifelse + apply（基础写法） #

我们可以用嵌套的ifelse来按优先级判断条件，配合apply按列处理数据：

# 初始化数据集
mydata <- data.frame(A=1:10, B=3:12, C=5:14)

# 执行替换操作
result_matrix <- apply(mydata, 2, function(x) {
  ifelse(x > 12, "***",
         ifelse(x > 10, "**",
                ifelse(x >= 8, "*", "NS")))
})

# 转换回DataFrame格式（apply默认返回矩阵）
result_df <- as.data.frame(result_matrix)

# 查看结果
print(result_df)

运行后会得到符合要求的结果：

A  B  C
1  NS NS NS
2  NS NS NS
3  NS NS NS
4  NS NS NS
5  NS NS NS
6  NS NS NS
7  NS NS NS
8   *  *  *
9   *  *  *
10  *  * **
11  NA ** ***
12  NA ** ***

方法二：用dplyr的case_when（更易读） #

如果习惯用tidyverse工具链，case_when可以让多条件判断更直观，配合across处理所有列：

library(dplyr)

mydata <- data.frame(A=1:10, B=3:12, C=5:14)

result_df <- mydata %>%
  mutate(across(everything(), ~case_when(
    .x > 12 ~ "***",  # 先判断最高优先级的条件
    .x > 10 ~ "**",
    .x >= 8 ~ "*",
    TRUE ~ "NS"       # 剩下的所有情况都返回NS
  )))

print(result_df)

这个写法的逻辑更清晰，条件顺序就是判断优先级，后续维护起来也更方便。

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