R语言for循环中如何以列名为参数获取数值列值并实现过滤

问题原因 #

你遇到的是dplyr包**非标准评估（NSE）**机制导致的问题：filter()默认会在传入的数据框的环境内查找列名，你直接写test_par[j]时，R会把它识别为全局环境中test_par向量的第j个字符串值（也就是"weight_dry"），而不会把这个字符串映射为数据框内对应的列，自然无法完成过滤逻辑。

解决方案 #

方案1：循环内动态引用单列（适配你现有的for循环写法） #

使用tidyverse官方提供的.data代词，直接用[[]]包裹字符串类型的列名即可：

all_data2 <- all_data2 %>%
  filter(.data[[test_par[j]]] > 0)

方案2：无需for循环的批量处理（更简洁的tidyverse风格写法） #

如果你要对test_par内存储的所有列统一执行>0的过滤逻辑，可以直接用across()批量处理，不需要写循环：

# 保留所有test_par指定列取值都大于0的行
all_data2 <- all_data2 %>%
  filter(across(all_of(test_par), ~ .x > 0))

# 如果只要任意一列符合条件就保留，改用if_any()
all_data2 <- all_data2 %>%
  filter(if_any(all_of(test_par), ~ .x > 0))

补充说明 #

你之前用eval()没有成功，大概率是没有正确绑定计算环境。硬要使用eval()的写法如下，但该方法存在注入风险、容易出现环境匹配错误，非常不推荐：

all_data2 <- all_data2 %>%
  filter(eval(parse(text = paste0(test_par[j], " > 0")), envir = cur_data()))

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