推 peiwinds:THX A LOT 10/28 17:03
最簡單的方式就是用list去處理,範例code如下:
Product = "Product1" #可自行輸入產品編號
Month = "July" #可指定月份
data.l = lapply(1:10, function(k){
eval(parse(text=paste("read.csv(\"D:/year", k, ".csv\")", sep="")))
}
)
output.l = lapply(data.l, function(ll){
eval(parse(text=paste("subset(ll, ", "Month==\"", Month, "\", select = ",
Product, ")", sep="")))
}
)
output.fr = Reduce(data.frame, output.l)
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.152.220
※ 編輯: celestialgod 來自: 140.116.152.220 (10/24 18:51)