R 在一组中寻找重叠时间

在每个家庭中，我想定义一个指标，该指标决定司机是否可以为乘客服务。如果驾驶员的行程在乘客行程后最多1小时开始，则驾驶员可用

例如：

      household    person     mode       start
           1         1         car        7:20
           1         1         car        8:00
           1         1         car        8:30
           1         2       non-car      7:30
           1         3       non-car      7:15
           1         4         car        7:00
           2         1          car       7:00
           2         2        non-car      9:00

在第一个家庭中，司机可以搭便车，因为他的行程比第二个人晚30分钟，他也可以让第三个人搭便车。在第二个家庭里

输出

      household    person     mode       start      indicator
           1         1         car        8:00          1 
           1         2       non-car      7:30          1
           1         3       non-car      7:15          1
           2         1          car       7:00          0
           2         2        non-car      9:00         0

然后我想把这些匹配的行（指示符是1）放在一起

输出

      household    person     mode       start      indicator   household    person     mode       start      indicator
           1         1         car        8:00          1       2         2       non-car      7:30          1
           1         1         car        8:00          1       3         2       non-car      7:15          1

---

我们使用

as.POSIXct

将'start'转换为datetime类，按'househouse'分组，检查'start'的

diff

值是否小于或等于1，使用

as.integer将逻辑强制为二进制

library(dplyr)
df1 %>% 
 mutate(start = as.POSIXct(start, format = '%H:%M')) %>% 
 group_by(household) %>% 
 mutate(indicator = as.integer(any(diff(start) <= 1)))
# A tibble: 4 x 5
# Groups:   household [2]
#  household person mode    start               indicator
#      <int>  <int> <chr>   <dttm>                  <int>
#1         1      1 car     2019-09-03 08:00:00         1
#2         1      2 non-car 2019-09-03 07:30:00         1
#3         2      1 car     2019-09-03 07:00:00         0
#4         2      2 non-car 2019-09-03 09:00:00         0

数据
df1汽车和非汽车选项如何？我不匹配2辆非汽车或2辆汽车！！！！！还请告诉我此错误：错误：列
指示符
的长度必须为14（组大小）或1，而不是113@shere让我recheck@shere在这里，我假设每组只有两行，第二行是非汽车one@shere你能用一个不适用于此代码的示例更新你的帖子吗？这样，修复起来就更容易了
df1 %>% 
  mutate(startn = as.POSIXct(start, format = '%H:%M')) %>% 
  group_by(household) %>% 
  mutate(indicator = as.integer(any(diff(startn) <= 1))) %>%  
  filter(indicator == 1) %>% 
  select(-startn) %>% 
  group_by(household) %>% 
  mutate(n = row_number()) %>%
  pivot_wider(names_from = n, values_from = c(household, person, mode, start, indicator))
# A tibble: 1 x 10
#  household_1 household_2 person_1 person_2 mode_1 mode_2  start_1 start_2 indicator_1 indicator_2
#        <int>       <int>    <int>    <int> <chr>  <chr>   <chr>   <chr>         <int>       <int>
#1           1           1        1        2 car    non-car 8:00    7:30              1           1

df1 <- structure(list(household = c(1L, 1L, 2L, 2L), person = c(1L, 
2L, 1L, 2L), mode = c("car", "non-car", "car", "non-car"), start = c("8:00", 
"7:30", "7:00", "9:00")), class = "data.frame", row.names = c(NA, 
-4L))