getwd()
setwd("E:/XXXX/20190826 Read_MEE_000/")
dirname<-list.files('./',full.names=T,all.files=T,recursive=T)
dirname[1]
#读000文件的第一种方法,read.table并跳过前几行
mydata1<-read.table(dirname[1],fill=T,sep = "",skip = 1)#其中skip是跳过行数,有时候需要跳过2行或其他行
#读000文件的第2种方法,scan成一个列表
mydata3<-scan(dirname[1],what = list(site=0, lat=0, lon=0, AQI=0,AQI_level=0,
PM25_hour=0,PM10_hour=0,CO_mg=0,NO2=0,
O3_1h=0,O3_8h=0,SO2=0),skip = 1)
mydata3$site
网友评论