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

1. set.seed(1)
   
2. aa <- rnorm(3000)
   
3. bb <- matrix(aa,600,5,byrow=TRUE)
   
4. apply(bb,1,mean)

复制代码

cheetahfly 发表于 2015-9-9 10:28
R语言自带rollapply()函数可以达到你的要求，
比如：
在Clifford S. Ang的著作《Analyzing Financial Dat ...

请问如果想对每一行求和，是不是把mean改成sum就可以了？

cheetahfly 发表于 2015-9-9 10:28
R语言自带rollapply()函数可以达到你的要求，
比如：
在Clifford S. Ang的著作《Analyzing Financial Dat ...

请问如果想对每一行求和，是不是把mean改成sum就可以了？

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

y

请问如果想对每一行求和，是不是把mean改成sum就可以了？

randy_van 发表于 2018-5-14 14:30
请问如果想对每一行求和，是不是把mean改成sum就可以了？

是的
直接用rowSums()和rowMeans()效率更高

初学R,试试我的基础方法：
df=data.frame(x)
n=1:dim(df)[1]
df$m=n%%5+1
最大值：
dfmax=aggregate(df[,1:4],by=list(df$m),max)
平均值：
dfmean=aggregate(df,by=list(df$m),mean)

cheetahfly 发表于 2015-9-9 10:28
R语言自带rollapply()函数可以达到你的要求，
比如：
在Clifford S. Ang的著作《Analyzing Financial Dat ...

这个是移动平均数的意思，但不是每隔5行加总。也就是得到的不是600个数，是2997个数。

首先新增加两列用于存数据，写一个for 循环，把结果赋值给新的列

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

然后就可以用appl ...

收下膝盖

1. # 生成示范数据
   
2. df <- data.frame(var1=rnorm(3500))
   
3. 
   
4. # 每隔5行分组
   
5. df$group <- rep(1:(nrow(df)%/%5), each=5)
   
6. 
   
7. # 按组求最大值
   
8. library(dplyr)
   
9. df %>%
   
10.   group_by(group) %>%
    
11.   summarise(max=max(var1),
    
12.             mean=mean(var1))

复制代码