在R中使用自定义filter(across)结合map_if处理数据框列表的问题

你之前的代码错误出在filter(across(where(map(., guessdate)), ~ str_detect(.x, "2018")))这部分：where()需要传入一个作用于单列的函数，而你用map(., guessdate)返回的是整个数据框每列的判断结果列表，不符合where()的要求。

下面是修正后的完整代码：

library(dplyr)
library(purrr)
library(stringr)

## 原始数据框列表
list_df <- list(A = data.frame(ID = letters[1:10],
                               Var1 = rnorm(10),
                               Var2 = rnorm(10),
                               Var3 = rnorm(10)),
                B = data.frame(ID = rep(letters[1:10],3),
                               X = c(rep("01/01/2018", 10), 
                                     rep("01/01/2019", 10),
                                     rep("01/01/2020", 10)),
                               Var1 = rnorm(30),
                               Var2 = rnorm(30)),
                C = data.frame(ID = rep(letters[1:10],2),
                               D = c(rep("01/01/2018", 10), 
                                     rep("01/01/2019", 10)),
                               Var1 = rnorm(20),
                               Var2 = rnorm(20)))

## 判断列是否为类日期字符列的函数
guessdate <- function(x) {
  # 先确保是字符列，再判断能否转为日期
  is.character(x) && !all(is.na(as.Date(x, format = "%d/%m/%Y")))
}

## 处理逻辑：对行数>10的数据框过滤2018年数据，其余原样保留
result_list <- list_df %>%
  map_if(
    .p = ~ nrow(.x) > 10,
    .f = ~ .x %>%
      filter(
        # 找到所有符合guessdate的列，只要其中任意一列包含"2018"就保留该行
        if_any(where(guessdate), ~ str_detect(.x, "2018"))
      )
  )

# 查看结果
result_list

关键修正点说明： #

• 优化guessdate函数：增加is.character(x)判断，避免对非字符列做无效转换，逻辑更严谨。
• 替换across(where(map(...)))为if_any(where(guessdate), ...)：
  • where(guessdate)会自动筛选出所有满足guessdate条件的列；
  • if_any用于判断任意一个筛选出的列是否符合str_detect(.x, "2018")，符合则保留该行（对应需求：保留2018年的数据行）。如果场景需要所有日期列都为2018年，可替换为if_all。
• 保留map_if的判断逻辑：只处理行数>10的长格式数据框，其余数据框原样返回。

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