複数のxlsxファイルを複数のシートで1つのRデータフレームに読み込む

Question

複数のxlsxを読み込んで組み合わせる方法について読んでいます。ファイルを1つのRデータフレームに変換して、How to read multiple xlsx file in R using loop with specific rows and columnsのような非常に良い提案が出てきましたが、今までのデータセットには当てはまりません。

私は、複数のxlsxファイルを複数のシートで読み込むことをお勧めします。すべてのシートとファイルは同じ列を持ちますが、同じ長さではなく、NAは除外してください。

19、12：17、6、8時10分これまでのところ、私が試した：私は、最初の3行をスキップし、列だけで1を取りたい

file.list <- list.files(recursive=T,pattern='*.xlsx') 

dat = lapply(file.list, function(i){ 
    x = read.xlsx(i, sheetIndex=1, sheetName=NULL, startRow=4, 
       endRow=NULL, as.data.frame=TRUE, header=F) 
# Column select 
    x = x[, c(1:6,8:10,12:17,19)] 
# Create column with file name 
    x$file = i 
# Return data 
    x 
    }) 

    dat = do.call("rbind.data.frame", dat) 

をしかし、これが唯一のすべての最初を取りますすべてのファイルのシート

1つのRデータフレームですべてのシートとファイルを一緒に取得する方法を知っている人はいますか？

また、大きなデータセットにはどのようなパッケージをお勧めしますか？これまではreadxlとXLConnectを試しました。

ありがとうございます！

Answer 1

このようなネストループを使用して、各ファイルの各シートを調べます。 これは最速の解決策ではないかもしれませんが、最も簡単です。

require(xlsx)  
file.list <- list.files(recursive=T,pattern='*.xlsx') #get files list from folder 

for (i in 1:length(files.list)){           
    wb <- loadWorkbook(files.list[i])   #select a file & load workbook 
    sheet <- getSheets(wb)      #get sheet list 

    for (j in 1:length(sheet)){ 
    tmp<-read.xlsx(files.list[i], sheetIndex=j, colIndex= c(1:6,8:10,12:17,19), 
        sheetName=NULL, startRow=4, endRow=NULL, 
        as.data.frame=TRUE, header=F) 
    if (i==1&j==1) dataset<-tmp else dataset<-rbind(dataset,tmp) #happend to previous 

    } 
} 

ローディングフェーズ後にNA値をクリーニングすることができます。

Answer 2

openxlsxソリューション：

filename <-"myFilePath" 

sheets <- openxlsx::getSheetNames(filename) 
SheetList <- lapply(sheets,openxlsx::read.xlsx,xlsxFile=filename) 
names(SheetList) <- sheets