关于R循环输出结果被覆盖的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我的程序是这样的：
for(i in 4:ncol(tempmin)){
  x<-round(mean(tempmin[,i],na.rm = TRUE),1)
}


需要求从第四列开始之后每一列的平均值，但是这样x的输出结果只有最后一列的，前面的结果都被覆盖了，求大神指点该怎么修改！！谢谢

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：输出结果 Temp pmin For Min 程序

比较低效的方法：
x <- numeric(0)
for (i in 4:ncol(tempmin)) {
     x[i-3] <- round(mean(tempmin[,i], na.rm = TRUE), 1)
}

稍微改进点的方法：
apply(tempmin[,-1:-3], 2, function(x) round(mean(x, na.rm = TRUE), 1))       ——当tempmin是matrix时
或者
sapply(tempmin[-1:-3],  function(x) round(mean(x, na.rm = TRUE), 1))     ——当tempmin是data.frame时

真正应该用的方法：
round(colMeans(temp[,-1:-3], na.rm = TRUE), 1)  

x <- numeric(ncol(tempmin)-3)
for(i in 4:ncol(tempmin)){
  x[i-3] <- round(mean(tempmin[,i],na.rm=TRUE),1)
}

cheetahfly 发表于 2016-8-9 11:02
比较低效的方法：
x

嗯嗯嗯！！谢谢啦