平均每两行求均值

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问类似这样的数据如何批量给“x”列每两行求均值呢？“type”列前八个数字相同，后面还有好多数据没有显示出来。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：type

为了方便别人使用数据帮助你，建议把数据贴在<>code里或用dput()输出文本。如：

1. > dput(mtcars[1:2,1:2])
   
2. structure(list(mpg = c(21, 21), cyl = c(6, 6)), row.names = c("Mazda RX4",
   
3. "Mazda RX4 Wag"), class = "data.frame")
   
4. > a <- structure(list(mpg = c(21, 21), cyl = c(6, 6)), row.names = c("Mazda RX4",
   
5. +                                                                    "Mazda RX4 Wag"), class = "data.frame")
   
6. > a
   
7.               mpg cyl
   
8. Mazda RX4      21   6
   
9. Mazda RX4 Wag  21   6

复制代码

1. aaa <- tribble(
   
2.   ~type, ~x,
   
3.   196201011, 1423.3333,
   
4.   196201012, 1292.5000,
   
5.   196201021, 1548.3333,
   
6.   196201022, 1250.8333,
   
7.   196201031, 1583.3333,
   
8.   196201032, 1134.1667,
   
9.   196201041, 1500.0000,
   
10.   196201042, 1035.0000,
    
11.   196201051, 1631.6667,
    
12.   196201052, 1235.8333
    
13. )
    
14. 
    
15. bbb <- aaa |>
    
16.   mutate(type2 = type %/% 10) |>
    
17.   group_by(type2) |>
    
18.   summarise(xmean=mean(x))
    
19. 
    
20. aaa <- aaa |>
    
21.   mutate(type2 = type %/% 10) |>
    
22.   right_join(bbb, by='type2') |>
    
23.   select(-type2)

复制代码

1. > dput(aaa)
   
2. structure(list(type = c(196201011, 196201012, 196201021, 196201022,
   
3. 196201031, 196201032, 196201041, 196201042, 196201051, 196201052
   
4. ), x = c(1423.3333, 1292.5, 1548.3333, 1250.8333, 1583.3333,
   
5. 1134.1667, 1500, 1035, 1631.6667, 1235.8333), xmean = c(1357.91665,
   
6. 1357.91665, 1399.5833, 1399.5833, 1358.75, 1358.75, 1267.5, 1267.5,
   
7. 1433.75, 1433.75)), row.names = c(NA, -10L), class = c("tbl_df",
   
8. "tbl", "data.frame"))

复制代码