Быстрое расстояние Левенштейна в R?

Незначительная вариация решения @ H1. Вы можете выполнить распределение времени до ggplot:

library(dplyr); library(lubridate)
dat %>%
  mutate(REG_TIME_HOUR = hour(hms(REGISTRATION_TIME))) %>%
  count(REG_TIME_HOUR) %>%
  ggplot(aes(REG_TIME_HOUR, n)) + geom_col()