需求：有n個Excel文件，每個文件包含表的數(shù)量不等，但全部表都有表名，并是根據(jù)同一的規(guī)范命名，比如與悟空有關(guān)的數(shù)據(jù)，存放在《悟空》表中，現(xiàn)在需要按表名對所有數(shù)據(jù)分類匯總

library(readxl) library(data.table) library(tidyverse) library(writexl) library(tidyxl) setwd("d:/cloud") # 將目錄下所有文件名存入變量 (fl <- list.files()) # 選取需要的文件名 (bdl <- fl[!str_detect(fl,"檔案|綜合分析|csv")]) # 最終結(jié)果存放的變量result中 result <- list() ## 循環(huán)一：將excel讀入內(nèi)存 for(j in 1:length(bdl)){bdt <- list()for (sheet in excel_sheets(bdl[j])){bdt[[sheet]] <- read_excel(bdl[j],sheet = sheet,col_types = 'text',col_names = FALSE)} ## 按表名分類保存到結(jié)果集，else語句是關(guān)鍵for(nm in names(bdt)){if (nm %in% names(result)){result[[nm]] <- rbind(result[[nm]],bdt[[nm]])}else{result[[nm]] <- bdt[[nm]]}} }

總結(jié)

以上是生活随笔為你收集整理的R语言批量导入Excel文件并按表分类汇总的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。