R语言中能否将关系或条件作为函数变量实现自定义向量筛选？

R 可以实现你需要的、将比较关系作为函数入参的筛选逻辑，核心是利用R原生的非标准求值机制抓取传入的表达式片段，自动补全生成完整的逻辑判断。

首先要明确一个基础语法限制：R 的内置代码解析器不允许在函数参数位置直接写没有左操作数的中缀比较片段（比如裸写>2），这类写法在进入函数执行逻辑前的语法检查阶段就会直接报错。要实现简洁的筛选调用，只需要对写法做极小幅适配即可，完全不需要依赖复杂的do.call拼接逻辑。

推荐实现方案（兼容基础语法、无额外依赖） #

函数代码 #

TF_sequense <- function(vec, cond) {
  # 抓取传入的条件表达式，不做即时求值
  cond_expr <- substitute(cond)
  # 在目标向量的环境中计算逻辑判断结果
  logic_vec <- eval(cond_expr, envir = list(. = vec), enclos = parent.frame())
  # 按逻辑索引返回筛选后的元素
  vec[logic_vec]
}

调用方式 #

ttt <- c(1,5,7,2,6)
# 用 `.` 作为原向量的占位符，和你想要的`>2`写法仅差一个占位标记
TF_sequense(ttt, . > 2)
# 输出结果：5 7 6

• 这种写法完全兼容R基础语法，不会触发解析错误
• 支持任意复杂的组合条件，比如同时筛选大于2小于7的元素：TF_sequense(ttt, . >2 & . <7)
• 逻辑稳定，和R原生subset等函数的非标准求值实现思路一致

为什么之前用do.call方案实现失败 #

do.call的本质是运行期拼接已有的合法语法片段生成函数调用，完全不介入代码解析阶段的语法检查流程。而裸写的>2这类没有左操作数的中缀表达式，在代码被R解析时就已经被判定为语法错误，根本到不了能被do.call处理的运行阶段，自然无论怎么调整参数拼接逻辑都跑不通。

折中实现（尽可能贴近期望的>2写法） #

如果一定要在参数里传入>2的内容，可以借助R的反引号语法绕过解析检查，函数内部自动拆解补全表达式：

TF_sequense <- function(vec, cond) {
  cond_expr <- substitute(cond)
  # 处理反引号包裹的`>2`类条件
  if (is.symbol(cond_expr)) {
    cond_str <- as.character(cond_expr)
    # 提取运算符和比较值
    match_res <- regmatches(cond_str, regexec("^([<>=!]+)(.*)$", cond_str))[[1]]
    op <- match_res[2]
    value <- as.numeric(match_res[3])
    # 组装完整比较逻辑
    cond_expr <- bquote(.(as.symbol(op))(vec, .(value)))
  }
  logic_vec <- eval(cond_expr, enclos = parent.frame())
  vec[logic_vec]
}

调用时需要给条件片段加反引号标记，和你最初想要的无标记写法接近，但遇到复杂组合条件时正则拆解容易出错，实用性不如带.占位符的版本：

ttt <- c(1,5,7,2,6)
TF_sequense(ttt, `>2`)
# 输出结果：5 7 6

内容的提问来源于stack exchange，提问作者Kώστας Κούδας