求对区间内的数据求平均值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

文件1示例数据，共有三列
1        10        0                          
1        65        0.2                     
1        79        1                  
1        164        0.3                        
2        34        0                  
2        58        0.34                     
2        103        1                  
......
                             
文件2为所要求平均值的滑窗文件
1    0    100   
1   50   150
1   100   200
2   0     100
2   50    150
.......

想得到的结果，先输出文件2，然后第四列输出文件1中第三列数值在文件2区间内的平均值，如下                                                          
1    0    100    0.4 （文件1第一列为1，第二列在区间0到100，第三列的平均值）
1   50   150    0.6（文件1第一列为1，第二列在区间50到150，第三列的平均值）
1   100   200  0.3
2   0     100    0.17（文件1第一列为2，第二列在区间0到100，第三列的平均值）
2   50    150   0.67


实际数据量很大，求用R语言实现
这个苦苦思索了好长时间，无解，恳求高人帮助

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：平均值 求平均 实际数据 R语言 平均值

1. library(dplyr)
   
2. 
   
3. data1 <- read.table(text = "1        10        0                          
   
4.                     1        65        0.2                     
   
5.                     1        79        1                  
   
6.                     1        164        0.3                        
   
7.                     2        34        0                  
   
8.                     2        58        0.34                     
   
9.                     2        103        1 ")
   
10. 
    
11. names(data1) <- c("id", "x", "y")
    
12. 
    
13. data2 <- read.table(text = "1    0    100   
    
14.                     1   50   150
    
15.                     1   100   200
    
16.                     2   0     100
    
17.                     2   50    150")
    
18. 
    
19. names(data2) <- c("id", "left", "right")
    
20. 
    
21. data2 %>%
    
22.   inner_join(data1, by = "id") %>%
    
23.   filter(x >= left, x <= right) %>%
    
24.   group_by(id, left, right) %>%
    
25.   summarise(y = mean(y))

复制代码

非常感谢您的帮助