r - 以 R sheet 方式读取 xlsb 文件并根据条件合并

Question

我有很多 xlsb 文件看起来像多张纸

文件 1 表 1

NA NA NA NA
NA 3  NA NA
A  B  C  D
23 12 24 23
.......

文件 1 表 2

NA NA NA 
NA 3  1  
NA 1  NA 
B  C  A   
23 12 21 
.....

每个文件有 2 张纸，前 2-3 行有垃圾，后面是列名 ABCD，可以按任何顺序排列，或者某些列可能会丢失，然后是数字数据

我想读取 R 中的所有 xlsb 并希望获得最终输出，例如

file1.A file1.B file1.C file1.D file2.A
43      42       23         42    43
.................................

代码尝试了 1 个文件需要 1 小时并且只读表 1，但是我必须从非 NA 行开始读取，否则会引发错误

 rm(list=ls())
start.time = Sys.time()
library(excel.link)
setwd("C://Users//LAB//Desktop//data//")
a = dir()
df<-xl.read.file(a[1],header=TRUE, top.left.cell="A4")
end.time <- Sys.time()
time.taken <- end.time - start.time
time.taken