作者celestialgod (天)
看板R_Language
标题Re: [问题] 回圈整理资料
时间Thu Oct 6 22:04:43 2016
下面有帮你把程式修成能跑的，不过我还是推荐我的解法
我的解法：
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://webptt.com/cn.aspx?n=bbs/R_Language/M.1475762687.A.24A.html
1F：推 eegame: 感恩 是要再装一个packeges的意思？ 10/06 23:29
我修改的程式 不用装package
我得解法是要装两个XD
2F：推 Edster: 版大的library_mul不考虑投稿至installr吗？ 10/07 21:51
3F：→ Edster: 每次请人装我写的library就要请他手动装depedence的pkg 10/07 21:53
4F：→ Edster: 然後他们就没耐心了。 10/07 21:54
5F：→ Edster: 总是幻想哪天呼叫pkg时可以自动检查然後安装。 10/07 21:56
我可以去问问看XD
installr::require2 有类似功能了
※ 编辑: celestialgod (36.233.137.163), 10/07/2016 23:06:37