将具有时间格式（hms）的数据集中的列转换为秒

Question

我正在尝试将HMS中具有时间格式的数据集中的列转换为秒。

下面是我的数据集的样子：

Participant Event ID    Event_start Event_time
Joe          1               3         1:49:52
Arya         1               2         1:37:39
Cynthia      1               1         1:40:17

我用了这个

dataset %>% 
  mutate(Timeinsec = period_to_seconds(hms("Event_time")))

它给了我警告。

Answer 1

该警告是因为引用了Event_time。尝试不使用引号：

dataset %>%
  mutate(Timeinsec = hms(Event_time))

如果您希望秒为整数，请使用period_to_seconds：

dataset %>%
  mutate(Sec = period_to_seconds(hms(Event_time)))