r - 根据字符串的存在过滤小标题列表

Question

我正在尝试从报表中提取财务数据。我有一个excel，它是从转换后的扫描中获得的，其中每张纸代表财务报表中的一页。我将它转换为一个列表，其中每个 tibble 是一个页面。现在我想根据特定字符串的存在对其进行过滤，例如“财务状况合并报表”或“财务状况合并报表（续）”。结果，我想获得一个仅包含资产负债表的列表，然后将其水平合并。注意：此字符串将在距顶部 10 个单元格内（作为标题）。

mysheets_fromexcel <- list()
mysheetlist <- excel_sheets("file.xlsx")
i=1
for (i in 1:length(mysheetlist)){
  tempdf <- read_excel("file.xlsx", sheet = mysheetlist[i])

  mysheets_fromexcel[[i]] <- tempdf 
}

mysheets_fromexcel[[11]]

标签： r