Tidyverse R中从函数参数构造变量名并过滤数据的问题

问题原因 #

你的函数运行失败有两个核心问题：

1. 不必要的infix_name <- {{infix_name}}：{{}}用于非标准计算解析符号输入，但你传入的是字符串，这一步会导致输入被错误解析。
2. 直接用!!解析字符串列名：!!只能解析符号对象，无法直接处理字符串，导致过滤条件没有匹配到正确的列，最终返回0行空数据框。

修正方案 #

下面提供两种简洁的修正方式，都能实现动态引用列名并完成过滤：

方法1：字符串转符号 + !!解析

library(tidyverse)

check_infix <- function(df_name, infix_name){
  # 构造目标列的字符串名称
  logic_col1 <- paste0("logic_", infix_name, "_1")
  logic_col2 <- paste0("logic_", infix_name, "_2")
  
  # 将字符串转为符号后用!!解析，匹配数据框列名
  out1 <- df_name %>% 
    filter(!!sym(logic_col1) == 1, !!sym(logic_col2) == 1) 
  
  return(out1)
}

方法2：使用.data代词（更简洁推荐）

.data是tidyverse内置代词，可直接通过字符串引用列名，无需额外转换步骤：

library(tidyverse)

check_infix <- function(df_name, infix_name){
  logic_col1 <- paste0("logic_", infix_name, "_1")
  logic_col2 <- paste0("logic_", infix_name, "_2")
  
  out1 <- df_name %>% 
    filter(.data[[logic_col1]] == 1, .data[[logic_col2]] == 1) 
  
  return(out1)
}

验证结果 #

调用check_infix(df_name = df_c, infix_name = "c")，会返回符合预期的结果：

# 查看结果维度
dim(check_infix(df_c, "c"))
#> [1] 233   5

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