请问如何在批量导入excel数据时增加变量？

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我想在数据导入时增加两个字段（类型、批次），附件newdata.xlsx所示。其中测试数据在testdata.zip中。请问如何操作？

序号	企业名称	《目录》序号	商标	产品型号	产品名称	备注	类型	批次
1	东风汽车公司	3	东风牌	EQ5045XXYTBEV22	纯电动厢式运输车		新发布车型	2018年第01批
2	东风汽车公司	3	东风牌	EQ5045XXYTBEV23	纯电动厢式运输车		新发布车型	2018年第01批
3	东风汽车公司	3	东风牌	EQ5045XXYTBEV25	纯电动厢式运输车		新发布车型	2018年第01批
4	东风汽车公司	3	东风牌	EQ5080XXYTFCEV4	燃料电池厢式运输车		新发布车型	2018年第01批

1. library(openxlsx)
   
2. library(tidyverse)
   
3. library(stringr)
   
4. library(plyr)
   
5. 
   
6. # -------------------------------------------------------------------------
   
7. #读取一个workbook的多个sheets
   
8. xlsxfile <- "/testdata/"  # 文件路径
   
9. readsheets <- function(file) {
   
10.   sheetsnames <- getSheetNames(file)
    
11.   ldply(sheetsnames, .fun = function(x) read.xlsx(xlsxFile = file, sheet = x, startRow = 2))
    
12. }
    
13. 
    
14. #读取一个文件夹下的多个workbooks中的多个sheets
    
15. readwks <- function(file) {
    
16.   filenames <- list.files(path = file, pattern = "*.xlsx", full.names = TRUE)
    
17.   ldply(filenames, .fun = readsheets)
    
18. }
    
19. 
    
20. newdata <- readwks(xlsxfile)

复制代码

testdata.zip (35.24 KB)

2021-6-7 10:43:40 上传

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：excel数据 EXCEL 批量导入 exce xcel

我按如下方法测试有效，看看大家还能不能再优化一下。很想把循环去掉。

1. library(openxlsx)
   
2. library(tidyverse)
   
3. library(stringr)
   
4. library(plyr)
   
5. # -------------------------------------------------------------------------
   
6. #读取一个文件夹下的多个workbooks中的多个sheets
   
7. readwks <- function(path) {
   
8.   paths <- list.files(path = path, pattern = "*.xlsx$",full.names = T,recursive = T,ignore.case = T)
   
9.   filenames <- dir(path)
   
10.   batch <- str_extract(filenames,"(?<=（).+?(?=）)")
    
11.   iorder <- 1
    
12.   data.list <- list()
    
13.   for (i in 1:length(paths)){
    
14.     sheetsnames <- getSheetNames(paths[i])
    
15.     for (j in 1:length(sheetsnames)){
    
16.     tempdata <- read.xlsx(paths[i],sheet = sheetsnames[j], startRow = 2)
    
17.     tempdata$类型 <- sheetsnames[j]
    
18.     tempdata$批次 <- batch[i]
    
19.     data.list[[iorder]] <- tempdata  
    
20.     iorder <- iorder + 1
    
21.     }
    
22.   }
    
23.   data <- do.call(rbind.fill,data.list)
    
24.   return(data)
    
25. }

复制代码