#若加载包显示错误表示R还未下载,请运行
# install.packages(''),例如install.packages('rio')
rm(list = ls())
setwd('G:\\10.21\\cotton xinjiang\\data\\cottton')#建立文佳所在目录
library(rio)
library(readxl)
library(tidyverse)
filename <- dir()#读取文件夹内所有文件
filename2 <- grep('\\.xlsx',filename,value = T)#只读取xlsx格式文件
view(filename)
data1<- data.frame()
for (i in filename) {
path <- paste0(getwd(),'\\',i)#构造读取空间
data1 <- rbind(data1,read_excel(path=path))#合并所有文件rbind()函数方法为上下合并
}
view(data1)
export(data1,'2020-2021拓扑结构数据.xlsx')#保存数据,包括文件名以及相应的格式