R语言中如何将列表存储的条件字符串作为ifelse判断条件

代码返回NA的核心原因：

• ifelse()要求第一入参必须是逻辑型向量（值为TRUE/FALSE），直接传入字符串形式的条件时，R不会自动将字符串识别为可执行的判断表达式
• 字符串做隐式类型转换时，所有非空字符串都会被转换为NA。之前尝试的noquote、paste等函数只是调整字符串的打印格式、拼接文本内容，本质上输入还是字符串，没有完成“解析为可执行判断逻辑”的步骤，因此始终返回NA。

需要先把字符串形式的条件语句解析为R可执行的表达式，拿到真实的判断结果后再传入ifelse：

1. 用parse(text = 字符串)把文本内容转为可解析的表达式对象
2. 用eval()执行表达式，得到真实的逻辑判断值
3. 把得到的逻辑值传入ifelse完成分支判断

可直接运行的示例代码：

# 定义测试变量
B11 <- 0.1
B15 <- 0.03
# 存储条件表达式的列表
l <- list("B11 >= -0.012 & B15 >=  0.030")

# 解析并执行条件，得到真实判断结果
real_cond <- eval(parse(text = l[[1]]))
# 传入ifelse执行
ifelse(real_cond, "yes", "no")

以上代码执行后会返回预期的"yes"。

如果列表中存储了多段条件语句，可以用lapply批量完成解析、执行和分支判断：

multi_cond_list <- list(
  "B11 >= -0.012 & B15 >= 0.030",
  "B11 < 0.05",
  "B15 == 0.02"
)

result <- lapply(multi_cond_list, function(cond_text) {
  cond_val <- eval(parse(text = cond_text))
  ifelse(cond_val, "yes", "no")
})

注意事项：

• 用eval(parse(text=...))处理字符串时，要保证表达式里引用的变量在当前运行环境中已定义，否则会报找不到对象的错误
• 不要对来源不可信的字符串用该方法，存在执行恶意代码的风险

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