作者eegame (yu)
看板R_Language
标题[问题] 回圈整理资料
时间Thu Oct 6 10:49:58 2016
[问题类型]:回圈应用
程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来)
[软体熟悉度]:
入门(写过其他程式，只是对语法不熟悉)
[问题叙述]:
整理10笔资料
每笔资料有10000组数据
将10笔txt读入D1~D10
根据"A","B","C","D","E","F","G","H"栏位计算
把计算结果分别存入ND1~ND10
最後想把ND1~ND10的计算结果合并输出成txt
程式如下
n <- 10 #有10个txt
for(i in 1:n){
DATA <- paste("E:/ _", i, ".txt", sep="") #读档案名字
D <- paste("D",i, sep="") #存数据
assign(D, read.table (DATA, header=T)) #把数据读入D
ND <- paste("ND",i, sep="") #开新矩阵放计算好的数据
rowname <- c(1:1) #Y轴名称
length(rowname)
colname <- c("A","B","C","D","E","F","G","H") #X轴名称
length(colname)
assign(ND, matrix(nrow=length(rowname), ncol=length(colname) ,dimnames=list(
rowname,colname)))
}
目前程式执行之後
可以将资料读入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(FF[1])) #ND[i][1] <- colSums(D[i][1])
assign(F[j], colMeans(FF[j])) #ND[i][j] <- colMeans(D[i][j])
}
}
这个回圈里面paste存的D1及ND1无法去连接数据与矩阵
导致assign中的colSums和colMeans无法计算
希望各位前辈可以指点
拜托拜托
[环境叙述]:
请提供 sessionInfo() 的输出结果，
里面含有所有你使用的作业系统、R 的版本和套件版本资讯，
让版友更容易找出错误
[关键字]:回圈 资料整理
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.136.56.124
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1475722201.A.A6E.html
1F：→ andrew43: 要重覆你的情境不容易，是否简化问题并提供具体实例？10/06 18:06
http://i.imgur.com/QaMx0IF.jpg
这样不知道有没有比较清楚
※ 编辑: eegame (114.136.56.124), 10/07/2016 08:52:00