R语言如何结合文本与参数动态调用filter_time函数

问题原因 #

你的写法存在两个核心错误：

1. eval(parse())的调用位置错误，你需要把完整的filter_time执行语句拼接成字符串后再传入解析，而不是把参数拼接后作为filter_time的入参
2. 拼接时间值时没有添加引号包裹，生成的表达式中~1979-09会被R识别为数值减法运算，而不是字符串格式的时间筛选条件

符合要求的解决方案（paste0 + eval(parse) 实现） #

# 可在for循环中动态替换要筛选的月份
target_month <- "1979-09"
# 拼接完整执行语句，注意日期值要加转义的双引号包裹
exec_expr <- paste0("filter_time(df, ~\"", target_month, "\")")
# 解析执行得到结果
filter_result <- eval(parse(text = exec_expr))

更稳妥的替代方案（无需eval解析，更适合循环调用） #

tidyverse生态的函数支持通过.env读取环境变量，完全不需要拼接字符串解析，写法更简单也更不容易出错：

target_month <- "1979-09"
filter_result <- filter_time(df, ~.env$target_month)

内容的提问来源于stack exchange，提问作者Erkan AĞASLAN