R语言使用lapply对多数据集应用filter函数报错求助

错误原因 #

你定义的datasets是由数据集名称字符串组成的字符向量，而非实际的数据框对象列表。lapply遍历的时候传入函数的是"df1"这类字符串值，dplyr::filter没有对应字符类对象的处理方法，因此触发报错。你单独对每个数据集操作时是直接传入实际数据框对象，因此逻辑可以正常执行。

修复方案 #

方案1：直接传入数据框列表（更推荐） #

把需要处理的数据集直接放到列表中遍历，处理完成后可根据需求更新原环境中的对象：

# 构造数据框列表而非字符串向量
datasets <- list(df1, df2, df3)
my_func <- function(x) {
  x %>%
   filter(!country %in% c("Belgium-Luxembourg"))
}
# 执行处理，返回处理后的数据框列表
processed_datasets <- lapply(datasets, my_func)
# 如果需要覆盖原有全局环境中的df1、df2、df3，添加以下代码
names(processed_datasets) <- c("df1", "df2", "df3")
list2env(processed_datasets, envir = .GlobalEnv)

方案2：保留字符串名称，用get()获取对应对象 #

如果你需要保留字符串形式的数据集名做遍历，可以在函数内先通过get()从当前环境取出对应的数据框对象再操作：

datasets <- c("df1", "df2", "df3")
my_func <- function(x) {
  # 取出字符串对应的实际数据框对象
  df_obj <- get(x, envir = .GlobalEnv)
  df_obj %>%
   filter(!country %in% c("Belgium-Luxembourg"))
}
# 执行处理
processed_datasets <- lapply(datasets, my_func)
# 如需更新原环境中的数据集，添加以下代码
names(processed_datasets) <- datasets
list2env(processed_datasets, envir = .GlobalEnv)

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