在 R 中查找一天中特定事件的发生

对于每个Date和Event您可以计算小时之间差异超过 1 的次数。

library(dplyr)
library(lubridate)

df %>%
  mutate(Date = dmy(Date), 
         Hour = as.numeric(Hour)) %>%
  arrange(Date, Hour) %>%
  group_by(Date, Event) %>%
  summarise(Count = sum(diff(Hour) > 1) + 1, .groups = 'drop')

#  Date       Event    Count
#  <date>     <chr>    <dbl>
#1 2019-08-21 Event        1
#2 2019-08-21 Hold         2
#3 2019-08-21 No_Event     2