如何计算不在列表中的日期

我有一个位于客户的两个日期（date1 date2）之间的数据框以及到达日期。

date1<- "2019-07-29"
date2<- "2019-08-08"

clients<-data.frame(id= c(1:10),
                    arrive=c("2019-07-31", "2019-07-29", "2019-08-01",
                             "2019-08-03", "2019-08-05", "2019-08-08", 
                             "2019-08-02", "2019-08-06", "2019-07-29", 
                             "2019-08-02"),
                    hotel= c(rep(900067, 5), rep(9001649,5)))

我想计算在日期之间，每家酒店有多少天没有新客户。

900067酒店在以下日期没有新客户：2019-07-30、2019-08-02、2019-08-04、2019-08-06、2019-08-07、2019-08-08。 date1 和 date2 之间有 6 天，没有任何新客户。

数据框结果应该类似于：

Result<- data.frame(hotel= c(900067, 9001649), 
                    days_without_new_clients= c(6, 7))

先感谢您。

也许您可以创建一个包含所有酒店日期的数据框，然后查看有多少酒店日期不存在clientsdata.

library(dplyr)

all_hotel_dates <- expand.grid(arrive = seq.Date(as.Date("2019-07-29"), as.Date("2019-08-08"), "day"), hotel = c(900067, 9001649))

clients %>%
  mutate(arrive = as.Date(arrive)) %>%
  full_join(all_hotel_dates) %>%
  group_by(hotel) %>%
  summarise(days_without_new_clients = sum(is.na(id)))

# A tibble: 2 x 2
    hotel days_without_new_clients
    <dbl>                    <int>
1  900067                        6
2 9001649                        7