作者LinNine (0-9)
看板R_Language
标题Re: [问题] 档名append
时间Wed Dec 16 01:04:50 2015
※ 引述《lambking (BB)》之铭言：
: [问题类型]:
: 程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来)
: [软体熟悉度]:
: 入门(写过其他程式，只是对语法不熟悉)
: [问题叙述]:
: 有多个档案 每个档案的格式皆相同
: 例：
: >fread('aa.csv')
: name id amount
: sam 001 2
: >fread('bb.csv')
: name id amount
: tom 007 5
: 想在每个档案中增加一个栏位纪录其档名
: ex:
: name id amount file
: sam 001 2 aa
: ...
: ...
先把档案位置设为filepath, 然後透过list.files找出所有的档案并读入
把分散的表先mutate出一栏档名 再bind_rows到Full data.frame
library(magrittr)
library(dplyr)
filepath = "test/"
temp <- list.files(path = filepath, pattern = "*.csv")
filename <- temp %>% gsub(x = ., pattern = ".csv", "")
for(i in 1:length(filename)){
assign( filename[i], read.csv(paste0(filepath, temp[i])))
}
FullDF <- data.frame()
for(i in 1:length(filename)){
FullDF <- bind_rows(FullDF, filename[i] %>% get %>% mutate(file =
filename[i]))
filename[i]))
}
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.223.229.139
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1450199093.A.5D7.html
※ 编辑: LinNine (42.77.44.80), 12/16/2015 07:52:28