※ 引述《clansoda (小笨)》之铭言:
: 最近在Coursera上面自己学习R语言,可是碍于过去没写过程式也没人能讨论
: 因此问的问题很浅显希望大家见谅
欢迎常来讨论^^
: 我现在遇到一个老师给的习题,要我们读入332个CSV档案来写出算平均数的
: Function,我目前是用list.file这个函数先将所有CSV档案弄成一个list
: 那应该就会有一个list有332个vector,我想用for函数读CSV档
: 我写成for (i in 1:length(kk)) {read.csv("D:/kk[[i]].csv")->item}
" " 里面一定是字串,你里面放变量,他也不会跑出来
要那样做只能:
eval(parse(text = paste0("D:/", kk[[i]])))
但是我并不推荐用eval的作法 我在MATLAB板每次都会强调eval is evil!
所以下面示范一个比较好的方式做处理
: KK是list的名称 这样如果i为一她应该会读list的第一项叫做001.csv的档案
: 这是我自己的想法,可是拿去跑之后会显示 Error in file(file, "rt") : cannot open the connection In addition: Warning
: message:
: In file(file, "rt") :
: cannot open file 'specdata/kktix[[i]]': No such file or directory
: 不知道版上有没有大大可以纠正我的写法跟观念。
: [软件熟悉度]:
: 请把以下不需要的部份删除
: 新手(没写过程式,R 是我的第一次)
csv_files <- list.files()[grepl('\\.csv', list.files())] # 抓出.csv结尾的档案
csv_tables <- vector('list', length(csv_files))
for (i in seq_along(csv_files))
csv_tables[[i]] <- read.csv(csv_files[[i]])
如果你的档案不是在工作目录可以这样改:
files <- list.files('path/to/csv', full.names = TRUE)
csv_files <- files[grepl('\\.csv', files)]