基於另一個數據值的數據彙總數據

Question

我有兩個數據框，一個包含調查日期的詳細信息，另一個包含記錄個人的實例。具體如下：

Records <- data.frame("Location"=c("A","A","B","C","C","C","D"), 
         "Date"= c("09/01/2017","12/01/2017","20/01/2017","06/06/2017","03/06/2017","19/01/2017","02/01/2017"), 
         "Individuals"= c(3,2,6,4,0,1,6)) 
Surveys <- data.frame("Location"=c("A","B","C","D","A","B","C","D"), 
        "Start"= c(rep("01/01/2017",length=4),rep("01/06/2017",length=4)), 
         "End"= c(rep("01/02/2017",length=4),rep("01/07/2017",length=4))) 

> Surveys 
    Location  Start  End 
1  A 01/01/2017 01/02/2017 
2  B 01/01/2017 01/02/2017 
3  C 01/01/2017 01/02/2017 
4  D 01/01/2017 01/02/2017 
5  A 01/06/2017 01/07/2017 
6  B 01/06/2017 01/07/2017 
7  C 01/06/2017 01/07/2017 
8  D 01/06/2017 01/07/2017 
> Records 
    Location  Date Individuals 
1  A 09/01/2017   3 
2  A 12/01/2017   2 
3  B 20/01/2017   6 
4  C 06/06/2017   4 
5  C 03/06/2017   0 
6  C 19/01/2017   1 
7  D 02/01/2017   6 

我希望添加一列求和發生在該網站及相關時間內個體數量的調查數據幀。結果是這樣的：

Sum.Individuals <- c(5,6,1,6,0,0,4,0) 
Final <- cbind(Surveys,Sum.Individuals) 

> Final 
    Location  Start  End Total.Individuals 
1  A 01/01/2017 01/02/2017     5 
2  B 01/01/2017 01/02/2017     6 
3  C 01/01/2017 01/02/2017     1 
4  D 01/01/2017 01/02/2017     6 
5  A 01/06/2017 01/07/2017     0 
6  B 01/06/2017 01/07/2017     0 
7  C 01/06/2017 01/07/2017     4 
8  D 01/06/2017 01/07/2017     0 

我希望這是有道理的，任何幫助表示讚賞。

乾杯

Answer 1

我建議以下步驟：

1. 上的位置接合兩個表
2. 濾波，其中日期是開始之間，並且通過位置結束
3. 組，開始和結束;總和個人。

因此可能會是這樣：

library(tidyverse) 
library(magrittr) 
df <- inner_join(surveys,records,by='Location') 
df %<>% filter(Date >= Start, Date <= End) 
df %<>% group_by(Location,Start,End) %>% summarise(totalindividuals=sum(individuals) 

希望幫助。如果您發現代碼混淆，您可能希望探索加入和過濾的概念，以及與這些任務非常相關的dplyr包。