r - 从 R 中的 Excel 文件中的所有工作表加载特定列

Question

我正在尝试使用此处的方法文档将所有工作表加载到 Excel 文档中:Read all worksheets in an Excel workbook into an R list with data.frames

然而，问题是我只想从这些工作表中加载特定的列，而不是加载所有内容并对我想要的列进行子集化。

我尝试了以下方法:

library(readxl)
read_excel_allsheets<-function(filename){
    sheets<-readxl::excel_sheets(filename)
    x<-lapply(sheets, function(X) readxl::read_excel(filename, 
                                                     sheet=X, 
                                                     range = cell_cols(c("A", "B", "C"))))
    names(x)<-sheets
    x
}
dat<-read_excel_allsheets(myexcelsheet.xlsx)

该脚本有效，但它仍在读取所有列。命名的列在每个工作表中都存在并且位于相同的位置。有什么想法吗？谢谢!

Answer 1

我认为您想将这些列的 col_type 参数设置为“空白”。查看示例，第一个加载 12 个列，第二个加载 2 个。您必须更改文件路径才能使代码工作。

library( xlsx )

write.xlsx( mtcars , "C:/Users/matthewr/Desktop/New folder/mtcars.xlsx") 

library( readxl )
a <- read_excel(  "C:/Users/matthewr/Desktop/New folder/mtcars.xlsx" , sheet= 1 ) 
b <- read_excel(  "C:/Users/matthewr/Desktop/New folder/mtcars.xlsx" , sheet=1 , col_type= c( "text","numeric", rep("blank", 10) ) )

length( names( a ))
length( names( b ))