从tera项转换讨厌的时间格式

Question

我得到了这个时间格式

星期五8月28日11:34:57,915 2020

从一个长期的数据记录。我试图找到一种可能性，把它转换成一种更方便的时间格式。到目前为止，我还没有找到合适的包(例如chron、lubridate和POSIXct)或类似的东西。但是到目前为止，通过转换时间格式，我从来没有遇到过这样的问题，所以我希望其他人已经知道了一些事情。否则我得用手重新安排一下。

Answer 1

你可以试试：

strptime("Fri Aug 28 11:34:57,915 2020", format = "%a %b %d %H:%M:%S")
#> [1] "2020-08-28 11:34:57 BST"

或者，如果要确保正确捕获年份，则首先需要去掉逗号和尾随毫秒：

f <- function(x) strptime(gsub(",\\d+", "", x), format = "%a %b %d %H:%M:%S %Y")

f(c("Fri Aug 28 11:34:57,915 2020", "Mon Feb 05 12:21:05,321 2018"))
#> [1] "2020-08-28 11:34:57 BST" "2018-02-05 12:21:05 GMT"

Answer 2

如果格式总是相同的，则可以尝试使用正则表达式提取必要的日期元素(这是在结束时访问年份信息所必需的)，然后转换为适当的日期格式：

test <- "Fri Aug 28 11:34:57,915 2020"

test2 <- gsub(x = test, 
     pattern = "([A-Za-z]+) ([A-Za-z]+) ([0-9]+) ([0-9]+):([0-9]+):([0-9]+),[0-9]+ ([0-9]+)",
     replacement = "\\2 \\3 \\7 \\4:\\5:\\6")

date <- as.POSIXct(test2, format = "%b %d %Y %H:%M:%S")
date