R语言函数中传入数据框与列名行筛选的报错解决

你遇到的警告是因为函数里直接把参数名当成了数据框的列名字面量，而非参数存储的实际列名，R无法识别这个不存在的列名导致报错。以下是两种可行的解决方案：

方案1：基础R实现（无额外依赖） #

这个版本支持两种传参方式：直接传列名字符串，或者传带反引号的列名符号

df_selectie_risico <- function(df, id_type_val, kern_col_name, kern_val = "Hoog") {
  # 将传入的列名统一转为字符串格式
  kern_col <- if (is.character(kern_col_name)) {
    kern_col_name
  } else {
    deparse(substitute(kern_col_name))
  }
  # 用[[动态引用列，兼容带特殊字符的列名
  df[df$x == id_type_val & df[[kern_col]] == kern_val, ]
}

调用示例：

# 方式1：传入列名字符串
df_selectie_risico(dataFrAme, "B", "Solvabiliteit: Hoog - Laag")

# 方式2：传入带反引号的列名符号
df_selectie_risico(dataFrAme, "B", `Solvabiliteit: Hoog - Laag`)

方案2：dplyr/tidyverse实现（语法更直观） #

如果你习惯使用tidyverse工具链，可以用{{ }}（拥抱操作符）处理动态列名：

library(dplyr)

df_selectie_risico <- function(df, id_type_val, kern_col_name, kern_val = "Hoog") {
  df %>%
    filter(x == id_type_val, {{kern_col_name}} == kern_val)
}

调用示例：

df_selectie_risico(dataFrAme, "B", `Solvabiliteit: Hoog - Laag`)

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