将文件夹中所有csv提取需要的两列(所有的csv中行数不一定一致),并且将他们以第一列merge起来

尘1234 |浏览25次
收藏|2018/04/16 20:53

代码如下

dir_dta <- "E:/work/20180412/FAMES"

mydata <- list()

file_list <- list.files(path=dir_dta,full.names=T)

for(i in 1:length(file_list)){

  a <- read.csv(file_list[i],stringsAsFactors = FALSE)

  da <- as.data.frame(cbind(a[,1],a[,7]))

  names(da) <- c("Name",file_list[i])

  mydata[[i]] <- da

}

mydata


mydata[[1]]

mydata[[2]]

merge(mydata[[1]], mydata[[2]], all=TRUE)

#拼接所有的表

b<-as.data.frame(mydata[[1]])

for (i in 2:length(mydata)){

  c<-merge(b,mydata[[i]],all=TRUE)

  b <- c

}

b


回答该问题即可获得 2 经验值,问题被采纳即可获得 5 经验值 + 2 财富值!
我来回答
全部回答(0)
0人关注该问题
+1
 加载中...