如何每隔5行求取一次最大值和平均数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

附件11中有3000多行数据，如何每隔5行求取一次最大值和平均数？
也就是获得600多的最大值和平均数？
希望得到您的指点

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：平均数 最大值 如何 平均数 最大值

把你的数据读入后变成一个5列的矩阵。第一行就是1-5的数，第二行就是6-10的数，。。。

然后就可以用apply(x, 1, max)和apply(x, 1, mean)来求每行的最大值和平均数了

飘过.....

qoiqpwqr 发表于 2013-7-10 11:15
把你的数据读入后变成一个5列的矩阵。第一行就是1-5的数，第二行就是6-10的数，。。。

然后就可以用appl ...

能把code给我吗，谢谢

能说的再详细点不

假设数据里面正好有3000行数，存为x（确保x是一个vector，而不是data.frame）

y <- matrix(x, ncol = 5, byrow = TRUE)

来得到一个600行5列的矩阵。这个矩阵的第一行是x的第一到第五个数，第二行是x的第六到第十个数，以此类推

apply(y, 1, mean) 来得到每一行的平均值
apply(y, 1, max) 来得到每一行的最大值

注意如果原来的行数不是5的整倍数，要稍微注意一下。可以先去掉多余的几个数做上面的运算，然后单独算这几个数的平均值和最大值。

qoiqpwqr 发表于 2013-7-11 08:46
假设数据里面正好有3000行数，存为x（确保x是一个vector，而不是data.frame）

y

谢谢大侠：
我使用了你说额方法
apply(y, 1, mean) 来得到每一行的平均值
apply(y, 1, max) 来得到每一行的最大值
现在想问怎么样可以一次计算出这600行的最大值和平均值，并保存起来，一个一个计算太慢了

xingzhaoh 发表于 2013-7-11 14:03
谢谢大侠：
我使用了你说额方法
apply(y, 1, mean) 来得到每一行的平均值

这应该一次性就可以计算了啊，不需要一次次计算的啊。

1. # 例子，三千行数据
   
2. x <- data.frame(no=rep(1:600,each=5), v=sample(1:10,3000, replace=T))
   
3. by(x$v, x$no, mean) #每五行中的平均数
   
4. by(x$v, x$no, max) #每五行中的最大数

复制代码

R语言自带rollapply()函数可以达到你的要求，
比如：
在Clifford S. Ang的著作《Analyzing Financial Data and Implementing Financial Models Using R》中，就举了下列例子：
rollapply(AMZN.bb$AMZN.Close,width=20,FUN=sd,fill=NA)
来求估价布林均线的移动标准差，
你所想达到的目标应该可以用：
rollapply(a,width=5,FUN=mean,fill=NA)
完成