r 从单个 excel 文件中识别和导入多个表

Question

我尝试阅读所有这样的帖子，但没有成功。

我需要从 excel 中的单个工作表中为文件的每个工作表提取不同布局的表格。

我们将不胜感激任何可以提供的帮助或想法。

数据文件的样本及其结构可以在Here找到

Answer 1

我会使用readxl。下面的代码只读取一张纸，但很容易适应阅读多张或不同的纸。

首先，我们只想阅读表格。显然，您应该更改路径以反映您保存文件的位置：

library(readxl)
sheet = read_excel("~/Downloads/try.xlsx", col_names = LETTERS[1:12])

如果您不知道您有 12 列，那么使用 read_excel 而不指定列名将为您提供足够的信息来找出它。工作表中的不同表格由一或两行空白行分隔。您可以通过使用apply 函数测试每一行以查看该行中的所有单元格是否为NA 来找到空白行。

blanks = which(apply(sheet, 1, function(row)all(is.na(row))))
blanks

> blanks
 [1]  7  8 17 26 35 41 50 59 65 74 80 86 95 98

因此，您可以通过获取第 1--6 行 (7 - 1) 来提取第一个表，通过获取第 9--16 行来提取第二个表，依此类推。