如何解决从Tera转换讨厌的时间格式
我有这个时间格式
2020年8月28日星期五11:34:57,915
从Tera术语数据记录开始。我正在尝试将其转换为更方便的时间格式的可能性。到目前为止,我找不到合适的软件包(例如chron
,lubridate
和POSIXct
)或类似的软件包。但是到目前为止,通过转换时间格式我从来没有遇到过这样的问题,所以我希望其他人已经知道一些事情。
否则,我必须以某种方式手动重新安排。
解决方法
您可以尝试:
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,"Mon Feb 05 12:21:05,321 2018"))
#> [1] "2020-08-28 11:34:57 BST" "2018-02-05 12:21:05 GMT"
,
如果格式始终相同,则可以尝试使用正则表达式提取必要的日期元素(这对于访问末尾的年份信息是必需的),然后转换为正确的日期格式:
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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。