※ 引述《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)]