[問題類型]:迴圈應用
程式諮詢(我想用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 的版本和套件版本資訊，
讓版友更容易找出錯誤
[關鍵字]:迴圈 資料整理