如何在R中導入具有相同模式的Excel表格？

Question

假設我們有 3 個 excel 表，分別是 sheet1_test、sheet2_test 和 sheet3_test。 這些工作表的常見模式可以是 test 或 _test。 那么，在這種情況下我們如何導入它們呢？ 我不知道它是否會起作用，但如果有多個文件，我會使用以下代碼。

file_list <- list.files(pattern = "*.xls|*.xlsx")
df_list <- lapply(file_list, read_excel)
masterdf <- ldply(df_list, data.frame)

Answer 1

您可以使用excel_sheets獲取工作表的名稱，並僅保留其中包含"test"表，並使用lapply或map_df導入它。

library(readxl)

file_name <- '/path/to/file/filename.xlsx'
sheets <- excel_sheets(file_name)
correct_sheets <- grep('_test', sheets, value = TRUE)
data <- do.call(rbind, lapply(correct_sheets, read_excel, path = file_name))
#Can also use `purrr::map_df`
#data <- purrr::map_df(correct_sheets, read_excel, path = file_name)