Re: [問題] 迴圈整理資料

[celestialgod (天)]

下面有幫你把程式修成能跑的，不過我還是推薦我的解法

我的解法：

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
推 eegame: 感恩 是要再裝一個packeges的意思？
我修改的程式 不用裝package

我得解法是要裝兩個XD

推 Edster: 版大的library_mul不考慮投稿至installr嗎？
→ Edster: 每次請人裝我寫的library就要請他手動裝depedence的pkg
→ Edster: 然後他們就沒耐心了。
→ Edster: 總是幻想哪天呼叫pkg時可以自動檢查然後安裝。
我可以去問問看XD

installr::require2 有類似功能了
※ 編輯: celestialgod (36.233.137.163), 10/07/2016 23:06:37