Question

我正在使用readxl包读取R中的excel文件，如下所示：

library(readxl)
file_names <- list.files(pattern = ".xlsx")

list_collection <- list() 
for(i in 1:length(file_names)){
  frame <- read_excel(file_names[i], )
  frame_sub <- frame[1:100,]
  list_collection[i] <- list(frame_sub)  
}

由于有很多excel文件，我只想要前100行。显然这没有效率。有没有办法最初从excel读取100行，而不是读取整个文件和THEN子集？

Answer 1

请尝试使用xlsx::read.xlsx()。它具有指定开始和结束行的参数。另请注意，我对for()循环进行了一些改进（内存分配是最重要的）。

library(xlsx)
## get file names
file_names <- list.files(pattern = "\\.xlsx$")
## allocate memory for our list
out <- vector("list", length(file_names)) 
## read the files and assign them to the list
for(i in seq_along(file_names)) {
    out[[i]] <- read.xlsx(file_names[i], startRow = 1, endRow = 100)  
}

或者您可以通过将for()循环更改为

来执行命名列表

for(file in file_names) {
    out[[file]] <- read.xlsx(file, startRow = 1, endRow = 100)  
}

Answer 2

在搜索相同内容时遇到此问题 - 这已添加到最新的readxl更新中。要获得工作表中的前100行，您可以

library(readxl)
file_names <- list.files(pattern = ".xlsx")

list_collection <- list() 
for(i in 1:length(file_names)){
  frame <- read_excel(file_names[i], n_max = 100)
  list_collection[i] <- list(frame)  
}

或者您可以使用

之类的内容指定特定行

frame <- read_excel(file_names[i], range = cell_rows(1:100))

使用read_excel从R中的excel文件中读取有限的行数

2 个答案: