如何用字符串变量向dplyr函数传递参数？该方式称为什么？

1. 原始代码是否可行？ #

不可行。dplyr::filter()要求传入的是R语言的逻辑表达式（比如strand == -1），而非字符串类型的条件。直接传递字符串时，非空字符串会被R视为逻辑值TRUE，导致filter返回整个数据框，完全达不到过滤效果。

2. 你尝试的方式名称 #

这种通过字符串传递条件、再试图让函数执行字符串内容的方式，属于字符串转表达式求值，本质是非标准求值的特殊场景，但在tidyverse生态中并不推荐——它容易引发语法错误，且不符合tidyeval的规范写法。

3. 正确的实现方法 #

方法一：直接分支处理（推荐） #

这是最简洁、符合tidyverse风格的写法，逻辑清晰且无需字符串转义：

library(dplyr)

strand_or_type <- function(df, strand_or_type) { 
    # 注意：不要在函数内部重新定义df，应使用传入的参数
    if(strand_or_type == "strand"){
       df %>% filter(strand == -1)
    } else if(strand_or_type == "type") {
       df %>% filter(type == "pos")
    } else {
       stop("参数只能是'strand'或'type'")
    }
}

# 测试调用
df <- data.frame( ID = c(10, 20),
                  strand = c(1,-1),
                  type = c("pos", "neg") )
strand_or_type(df, "strand")
strand_or_type(df, "type")

方法二：动态表达式处理（复杂场景可用） #

如果遇到更复杂的动态条件构建场景，需要从字符串生成表达式，可以用rlang包的工具实现：

library(dplyr)
library(rlang)

strand_or_type <- function(df, strand_or_type) { 
    cond_expr <- if(strand_or_type == "strand"){
       parse_expr("strand == -1")
    } else if(strand_or_type == "type") {
       parse_expr("type == 'pos'")
    } else {
       stop("参数只能是'strand'或'type'")
    }

    df %>% filter(!!cond_expr)
}

# 测试调用
strand_or_type(df, "strand")

这里parse_expr()将字符串转为R表达式，!!（注入运算符）把表达式注入到filter中执行。

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