R语言如何关联向量元素与数据框变量实现条件筛选

你的代码返回空列表，核心是踩了dplyr非标准求值的坑，具体问题点：

• filter(month == 1)的写法会让R直接在数据框里寻找名为month的列做判断，但你的数据集里根本没有这一列，只有Jan/Feb这类以月份名命名的虚拟变量列，循环中存储月份名的变量i不会被自动识别为数据框列名。
• 你写的month = noquote(i)是无效代码，这行只是在函数环境里创建了一个存储月份字符串的对象，完全不会和数据框的列产生关联。
• 后续select(time, var)也存在同样的问题：如果传入的var是字符串格式的变量名，直接写var会让R去找数据里名为var的列，无法正确匹配你要提取的目标变量。

额外提醒：你预设的月份向量里十月拼写为Okt，如果是英文数据集的话十月列名一般是Oct，如果你的列名确实是德语拼写的Okt可以保留，否则要修正拼写避免匹配失败。

使用dplyr官方提供的.data代词引用动态列名即可，这是函数/循环场景下调用dplyr最稳妥的写法，不需要废弃的下划线后缀函数，也不需要容易出环境问题的get()函数：

library(dplyr)

Monthly_series <- function(var){
  Monthly <- list()
  months <- c('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec')
  
  for (i in months){
    Monthly[[i]] <- data %>%
      # .data[[i]] 会把i存储的字符串识别为数据框的列名
      filter(.data[[i]] == 1) %>%
      # 目标变量var也用同样方式引用
      select(time, .data[[var]])
  }
  return(Monthly)
}

传入你要提取的目标变量名（字符串格式）即可，比如要提取每个月对应的sales时间序列：

# 提取各月time和sales列的子集，存入列表
sales_monthly_list <- Monthly_series(var = "sales")

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