在类似文件列表中指定标题

Question

我知道我的问题很简单，肯定会重复。

我有很多文件（使用标头和行名格式都相同），这些都是我使用file.list打开的。

library(readxl) 
file.list <- list.files(pattern=".xlsx")
df.list <- lapply(file.list, read_excel)

我的最终目标是合并此列表中的每个文件。但是，我仍然需要分配一个特定的标题。

我想做这样的事情，因为我想要的标题位于每个文件的第二行：

df.list2 <- lapply(df.list,df.list[-2,])

或指定标题名称，例如：

df.list2 <- lapply(df.list,read_excel(header=c("list of column entries representing my header")

没有一个起作用。

谢谢您的帮助。

Answer 1

这将读取文件并创建data.frame的列表：

lapply(df.list, function(file_path){
  read_excel(file_path, skip = 1, col_names = TRUE)
})