Я не совсем уверен, что именно вам нужно, но из того, что я понимаю, есть кое-что, что может помочь вам:
library(tidyverse)
library(lubridate)
#>
#> Attaching package: 'lubridate'
#> The following object is masked from 'package:base':
#>
#> date
t <- tibble(
place = "xyz",
st = "9:00",
et = "13:00"
)
t <- t %>%
mutate(stdur = period_to_seconds(hm(st))) %>%
mutate(etdur = period_to_seconds(hm(et))) %>%
mutate(interval = dseconds(etdur - stdur)) %>%
mutate(interval_hours = seconds_to_period(interval))
glimpse(t)
#> Observations: 1
#> Variables: 7
#> $ place <chr> "xyz"
#> $ st <chr> "9:00"
#> $ et <chr> "13:00"
#> $ stdur <dbl> 32400
#> $ etdur <dbl> 46800
#> $ interval <Duration> 14400s (~4 hours)
#> $ interval_hours <Period> 4H 0M 0S
Created on 2020-02-10 by the reprex package (v0.3.0)