在R中合并多个excel文件

Question

我在 R 中遇到了一个基本问题。我必须合并具有相同变量的相似数据类型的 72 个 excel 文件。我必须将它们合并到 R 中的单个数据集。我使用下面的代码进行合并，但这对于这么多文件似乎并不实用。谁能帮帮我？

data1<-read.csv("D:/Customer_details1/data-01.csv")

data2<-read.csv("D:/Customer_details2/data-02.csv")

data3<-read.csv("D:/Customer_details3/data-03.csv")

data_merged<-merge(data1,data2,all.x = TRUE, all.y = TRUE)

data_merged2<-merge(data_merged,data3,all.x = TRUE, all.y = TRUE)

Answer 1

首先，如果扩展名是 .csv，它们不是 Excel 文件，它们是 .csv 文件。

我们可以利用apply 系列函数来有效地做到这一点。

首先，让我们创建一个文件列表：

setwd("D://Customer_details1/")

#  create a list of all files in the working directory with the .csv extension
files <- list.files(pattern="*.csv")

在这种情况下，我们使用purrr::map，尽管我们也可以使用lapply - 更新为map_dfr 以消除对reduce 的需要，自动将rbind 写入数据框：

library(purrr)

mainDF <- files %>% map_dfr(read.csv) 

如果需要，您可以将其他参数传递给read.csv：map(read.csv, ...)

请注意，要使 rbind 起作用，列名必须相同，我假设它们是基于您的问题。

Answer 2

#Method I
library(readxl)
library(tidyverse)
path <- "C:/Users/Downloads"
setwd(path)
fn.import<- function(x) read_excel("country.xlsx", sheet=x)
sheet = excel_sheets("country.xlsx")
data_frame = lapply(setNames(sheet, sheet),  fn.import )
data_frame = bind_rows(data_frame, .id="Sheet")
print (data_frame)
#Method II
install.packages("rio")
library(rio)
path <- "C:/Users/country.xlsx"
data <- import_list(path , rbind=TRUE)