R合并多给格式一样的excel文件

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

getwd()
setwd('C:/Users/libos/Documents/ArcGIS/scratch/2019/shp/100')
files=list.files(getwd(),full.names = T)
library(readxl)
a=readxl::read_excel(files[1])
show(a)
m=data.frame()
for (i in (2:length(files)))
{
  data=read_excel(files[i])
  data2=rbind(a,data)
}
疑惑：怎么修改才能使得合并rbind结果不再只有第一个数据和最后一个数据

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：EXCEL xcel exce cel documents 特钢 竞争格局 市场份额 市场集中度

坐等

1. library(readxl)

复制代码

橙红的果士 发表于 2022-9-1 17:07

你好，你的代码也是只有最后一个和第一个表格数据

1. getwd()
   
2. setwd('C:/Users/libos/Documents/ArcGIS/scratch/2019/shp/100')
   
3. files=list.files(getwd(),full.names = T)
   
4. library(readxl)
   
5. a=readxl::read_excel(files[1])
   
6. for (i in (2:length(files)))
   
7. {
   
8.    a=rbind(a,read_excel(files[i])
   
9. }

复制代码

1. library(readxl)
   
2. 
   
3. getwd()

复制代码

1. library(readxl)
   
2. getwd()
   
3. setwd('C:/Users/libos/Documents/ArcGIS/scratch/2019/shp/100')
   
4. files=list.files(getwd(),full.names = T)
   
5. listA=list()
   
6. a=1
   
7. 
   
8. for (i in (1:length(files))){
   
9.     listA[[a]] = read.xlsx(files[i],sheetIndex=1)  
   
10.     a = a+1
    
11. }

复制代码

试试这个，编辑代码太难了，刷新也更不上

感谢分享~~~~~~么么哒

谢谢分享