Re: [問題] 迴圈整理資料
下面有幫你把程式修成能跑的，不過我還是推薦我的解法
我的解法：
library_mul <- function(..., lib.loc = NULL, quietly = FALSE,
warn.conflicts = TRUE){
pkgs <- setdiff(sapply(as.list(substitute(list(...))),as.character),"list")
if (any(!pkgs %in% installed.packages()))
install.packeges(pkgs[!pkgs %in% installed.packages()])
invisible(sapply(pkgs, library, character.only = TRUE, lib.loc = lib.loc,
quietly = quietly))
}
library_mul(pipeR, data.table)
DT_list <- list.files("E:/", pattern = "\\.txt") %>>% lapply(fread) %>>%
lapply(function(dt) setnames(x, LETTERS[1:8]))
colSumsRes <- lapply(DT_list, colSums)
colMeansRes <- lapply(DT_list, colMeans)
※ 引述《eegame (yu)》之銘言：
: 目前程式執行之後
: 可以將資料讀入D1~D10
: 以及開ND1~ND10的矩陣
: 但是在數據計算方面出了問題
: for(i in 1:n){
: for(j in 2:8){
: F <- paste("ND", i, "[1]", sep="")
: FF <- paste("D", i, "[1]", sep="")
# 改成下面這樣
assign(F[1], colSums(get(FF[1]))) #ND[i][1] <- colSums(D[i][1])
assign(F[j], colMeans(get(FF[j]))) #ND[i][j] <- colMeans(D[i][j])
: }
: }
--
我絕對不是來show我的library_mul XDD
--
R資料整理套件系列文：
magrittr #1LhSWhpH (R_Language) http://tinyurl.com/j3ql84c
data.table #1LhW7Tvj (R_Language) http://tinyurl.com/hr77hrn
dplyr(上) #1LhpJCfB (R_Language) http://tinyurl.com/jtg4hau
dplyr(下) #1Lhw8b-s (R_Language)
tidyr #1Liqls1R (R_Language) http://tinyurl.com/jq3o2g3
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.233.137.163
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1475762687.A.24A.html
推
10/06 23:29, , 1F
10/06 23:29, 1F
我修改的程式 不用裝package
我得解法是要裝兩個XD
推
10/07 21:51, , 2F
10/07 21:51, 2F
→
10/07 21:53, , 3F
10/07 21:53, 3F
→
10/07 21:54, , 4F
10/07 21:54, 4F
→
10/07 21:56, , 5F
10/07 21:56, 5F
我可以去問問看XD
installr::require2 有類似功能了
※ 編輯: celestialgod (36.233.137.163), 10/07/2016 23:06:37
討論串 (同標題文章)
R_Language 近期熱門文章
PTT數位生活區 即時熱門文章
18
34
