r 如果工作表在特定列中包含特定值，则从文件导入 excel 工作表

Question

我正在从单个 excel 文件导入 r 多个结构相似的工作表，但想知道如何在下面进行调整以仅导入那些在特定列中包含（除其他值外）特定值的工作表（列 = 运动，值 = 足球)

excel_sheets("mydata") %>%
  map_df(~read_xlsx("mydata", .x)

是否可以调整我的代码来执行此操作？

Answer 1

如果sport列至少有一个'football'值，这将包括工作表。

library(readxl)
library(purrr)

excel_sheets("mydata") %>%
  map_df(~{
    tmp <- read_xlsx("mydata", .x)
    if(any(tmp$sport %in% 'football')) tmp
    })