根据站点合并两个数据集，然后在 R 中合并最近的时间答案

【问题标题】：Merging two data sets based on Site and then nearest Time in R根据站点合并两个数据集，然后在 R 中合并最近的时间
【发布时间】：2020-11-24 12:53:43
【问题描述】：

我有一个文件，其中显示了在不同地点发现一个物种的时间（timeofOccurance），我想将它与在该地点记录的最接近该时间的 GPS 位置（GPSTime）合并。我在下面提供了一个示例。实际数据集相当大。

Abundance
Site     TimeofOccurance     Species
1         11:00               a
1         12:00               b
2         14:05               a
3         16:00               c

GPS
Site      GPS Time       Longitude     Latitude
1         11:01           X1            Y1
1         11:06           X2            Y2
1         12:00           X3            Y3
2         14:07           X5            Y5
2         14:15           X6            Y6
3         16:01           X8            Y8

这将给出理想的输出：

AbundanceGPS
Site     TimeofOccurance       Species     Longitude     Latitude
1         11:00                 a          X1            Y1
1         12:00                 b          X3            Y3
2         14:05                 a          X5            Y5
3         16:00                 c          X8            Y8

【问题讨论】：

标签： r time merge location

【解决方案1】：

这行得通吗：

library(dplyr)
library(stringr)
library(lubridate)
Abundance %>% 
   inner_join(GPS %>% 
                mutate(nearest_time = str_extract(floor_date(lubridate::ymd_hms(str_c(Sys.Date(), `GPS Time`, sep = ' ')), unit = '5 mins'), '..:..:..')), 
              by = c('TimeofOccurance' = 'nearest_time')) %>% select('Site' = Site.x, TimeofOccurance, Species, Longitude, Latitude)
# A tibble: 4 x 5
   Site TimeofOccurance Species Longitude Latitude
  <dbl> <time>          <chr>   <chr>     <chr>   
1     1 11:00           a       X1        Y1      
2     1 12:00           b       X3        Y3      
3     2 14:05           a       X5        Y5      
4     3 16:00           c       X8        Y8

【讨论】：