看板 R_Language 關於我們 聯絡資訊
最簡單的方式就是用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)
peiwinds:THX A LOT 10/28 17:03