Вопрос Что касается создания периода времени / интервалов в R? - PullRequest
0 голосов
/ 09 февраля 2020

У меня проблема с созданием периода времени в R.

Данные, которые у меня под рукой, введите описание изображения здесь

Теперь я хочу сделать последующий.

Определение часовых интервалов между временем начала и окончания и создание списка

Определение часовых интервалов b / n начала и времени перерыва

Наконец, удалите интервалы перерыва в найдите общее время

и затем создайте вывод.

Не могли бы вы мне помочь?

1 Ответ

0 голосов
/ 10 февраля 2020

Я не совсем уверен, что именно вам нужно, но из того, что я понимаю, есть кое-что, что может помочь вам:

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)
...