如何将字符串转换为 R 中的特定时间格式？答案

【问题标题】：How to convert a string to a specific time format in R?如何将字符串转换为 R 中的特定时间格式？
【发布时间】：2020-08-04 21:00:42
【问题描述】：

我有一个包含 4000 万行的数据集。目标是从将日期和时间列合并为一个开始清理它。我能够使用 lubridate 将数据从一个因子转换为数据。这次我想对 Time 列做同样的事情，所以我可以使用 ymd_hms() 和 paste() 将它们组合在 1 列中作为日期时间。但是，我在使用时间列时遇到了问题。

这是该列的示例内容：

sample_time_as_string <- c("18:00", "12:57","07:54:40", "17:59:02","01:00" )

目标是将此字符串转换为 hh:mm:ss，例如，“18:00”应变为“18:00:00”，“17:59:02”应保持不变。这样就可以轻松组合日期和时间列。

这是我迄今为止使用 lubridate 所做的事情

sample_time_applied_lubridate <- hms(sample_time_as_string)

Warning message:
In .parse_hms(..., order = "HMS", quiet = quiet) :
Some strings failed to parse, or all strings are NAs

sample_time_applied_lubridate
[1] NA           NA           "7H 54M 40S" "17H 59M 2S" NA

我尝试了不同的功能

sample_time_applied_lubridate <- hm(sample_time_as_string)

同样的错误

Warning message:
In .parse_hms(..., order = "HM", quiet = quiet) :
Some strings failed to parse, or all strings are NAs

sample_time_applied_lubridate
[1] "18H 0M 0S"  "12H 57M 0S" NA           NA           "1H 0M 0S"

我试过 parse_date_time

sample_time_applied_lubridate <- parse_date_time(sample_time_as_string, orders = "HMS")

Warning message:
3 failed to parse.

您对我可以尝试的方法有更多建议吗？也许 lubridate 不是这个的正确方法？

【问题讨论】：

标签： r lubridate

【解决方案1】：

您可以使用 stingr 中的str_pad 函数来填充没有秒数的时间。

library(stringr)
ifelse(nchar(sample_time_as_string)==5,
            str_pad(paste0(sample_time_as_string, ":"), width=8, side="right", pad="0"), 
       sample_time_as_string)

#[1] "18:00:00" "12:57:00" "07:54:40" "17:59:02" "01:00:00"

【讨论】：

【解决方案2】：

尝试将两种格式传递给orders

parse_date_time(c("18:00", "12:57","07:54:40", "17:59:02","01:00" ), orders = c("HM","HMS")) %>% 
  format("%H:%M:%S")

【讨论】：