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
    })