R语言入门笔记1.2

读取文件的高级进阶

读取xls与xlsx文件

如果要读取excel，首先要先安装相应的包，安装代码可以用installed.package(readxl)，要在电脑联网的状态下运行代码

library(readxl) #为读取excel文件，载入readxl包
lvzhi <- read_xlsx("绿植.xlsx",sheet=1)  #读取数据，sheet=1为第1张表

读取stata的DTA文件

library(haven)#载入haven包
WAGE1=read_dta("WAGE1.DTA")#读取数据

批量读取文件

a = list.files("input",pattern=".csv")    #工作路径下文件夹里格式为csv的文件列表
a
[1] "表1.csv" "表2.csv" "表3.csv"
dir = paste("./input/", a , sep="")     #表明文件的路径
dir
[1] "./input/表1.csv" "./input/表2.csv" "./input/表3.csv"
n = length(dir)              #这个路径下有几个文件
n
[1] 3
y= read.csv(file = dir[1],header=T,sep=",")   #读取第一个文件
for (i in 2:n){
  x = read.csv(file = dir[i], header=T, sep=",")    #读取第2个之后的文件，并与第一个
  y = cbind(y , x)                             文件合并
}
write.csv(y , file = "merge7.csv",row.names=F)       #输出完成合并的新文件