[問題] for迴圈讀取大量csv
看板R_Language作者hotlin0709 (hotlin0709)時間7年前 (2018/04/03 02:09)推噓4(4推 0噓 7→)留言11則, 8人參與, 7年前最新討論串1/2 (看更多)
[問題類型]:使用for迴圈讀取多資料夾內多個csv 處理
效能諮詢(我想讓R 跑更快)
[軟體熟悉度]:
入門(寫過其他程式，只是對語法不熟悉)
[問題敘述]:
我要讀取多個資料夾內的多個csv，然後讀進來後，全部資料做簡單的處理filter一些變數，
並將擷取完資料的某一欄位加總起來。
以下是我寫的方式，但是跑太久了......請問有比較快速的方法嗎？
[程式範例]:
library(dplyr)
l<- list.files(path="/users/Johnny/downloads/M08A",pattern="*")
bindtemp <- data.frame()
temp <- data.frame()
for (k in l){
ll<- list.files(path=paste("/users/Johnny/downloads/M08A/",k,sep = ''),pattern="*")
for (i in ll) {
file_names <- paste("/users/Johnny/downloads/M08A/",k,i,sep = '/')
files <- list.files(path=file_names, pattern="*")
for (file in files) {
bindtemp <- read.csv(paste(file_names,file,sep="/"),header=F)
temp <- rbind(temp,bindtemp)
}
}
}
df3<-temp %>% filter((V3=="03F0961N"|V3=="03F0846S"),V4==31) %>% summarise(n=sum(V5))
[關鍵字]:
for迴圈 讀取多資料夾的CSV
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.113.136.218
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1522721365.A.C0C.html
推
04/03 10:14,
7年前
, 1F
04/03 10:14, 1F
推
04/03 10:28,
7年前
, 2F
04/03 10:28, 2F
→
04/03 11:01,
7年前
, 3F
04/03 11:01, 3F
→
04/03 11:26,
7年前
, 4F
04/03 11:26, 4F
→
04/03 11:26,
7年前
, 5F
04/03 11:26, 5F
→
04/03 11:27,
7年前
, 6F
04/03 11:27, 6F
→
04/03 12:35,
7年前
, 7F
04/03 12:35, 7F
推
04/03 13:09,
7年前
, 8F
04/03 13:09, 8F
推
04/03 20:45,
7年前
, 9F
04/03 20:45, 9F
→
04/03 20:45,
7年前
, 10F
04/03 20:45, 10F
→
04/03 20:58,
7年前
, 11F
04/03 20:58, 11F
討論串 (同標題文章)
R_Language 近期熱門文章
PTT數位生活區 即時熱門文章
