请教各位老师关于均值

想求出第三行与第二行的均值，第四行与第三行的均值，以此类推。
其中cons_no有很多，还需要进行分组计算。

library(dplyr)
dat<-data.frame(x=c(rep("A",5),rep("B",5)),
                y=c(1, 3, 5, 2, 2,2,6,5,3,1))
dat%>%
  group_by(x)%>%
  transmute(z=(lag(y)+y)/2)
结果
# A tibble: 10 x 2
# Groups:   x [2]
   x         z
   <fct> <dbl>
1 A      NA  
2 A       2  
3 A       4  
4 A       3.5
5 A       2  
6 B      NA  
7 B       4  
8 B       5.5
9 B       4  
10 B       2  

要进行什么分组计算？算哪个变量？是不是算en的平均？下面参考：

1. library(dplyr)
   
2. cons_no=c(rep(4000,100),rep(5001,100))
   
3. en=rnorm(100,14,2)
   
4. df=data.frame(cons_no,en,row_cat=1:100)
   
5. for (i in seq(1,NROW(df),by=2)){
   
6.   if((i+1)<=NROW(df))df$row_cat[i+1]=df$row_cat[i]
   
7. }
   
8. output=df %>% group_by(cons_no,row_cat) %>% summarise(mean_en=mean(en))

复制代码

library(dplyr)
dataname%>%
  group_by(cons_no)%>%
  transmute(z=(lag(en)+en)/2)

不懂不装懂 发表于 2020-3-4 15:41
library(dplyr)
dataname%>%
  group_by(cons_no)%>%

最后一句得不到结果吧？

无for循环的代码：

1. library(dplyr)
   
2. cons_no=c(rep(4000,100),rep(5001,100))
   
3. en=rnorm(200,14,2)
   
4. df=data.frame(cons_no,en,row_cat=1:200)
   
5. df$cat=df$row_cat+(df$row_cat%%2)
   
6. df %>% group_by(cons_no,cat) %>% summarise(mean_en=mean(en))

复制代码

第一个问题可用rollmean；
第二个问题用group_by；

skyfx 发表于 2020-3-4 20:14
第一个问题可用rollmean；
第二个问题用group_by；

楼主的意思是先分组，在求均值，你这个好像不能一起用

不懂不装懂 发表于 2020-3-4 20:45
楼主的意思是先分组，在求均值，你这个好像不能一起用

仔细看了他意思，的确你说的是对的。我理解错了。我还以为他要求1和2行的均值 ，然后求3和4行的均值。以此类推。他不是求这个，那简单了。

感谢各位老师