转换为日期和剥离时间？

我有一些数据，看起来像这样：转换为日期和剥离时间？

dates <- structure(c(1L, 2L, 4L, 3L), .Label = c("Sat, 18 Nov 2017 00:00:00 GMT", 
              "Thu, 16 Nov 2017 00:00:00 GMT", "Tue, 14 Nov 2017 00:00:00 GMT", 
              "Wed, 15 Nov 2017 00:00:00 GMT"), class = "factor")

我想将其转换为日期格式，而不是它的一个因素。此外，我想剥离00:00:00 GMT，因为它是没有意义的

我试图lubridate但我有与格式的烦恼：

library(lubridate) 
mdy(dates) 
Warning message: 
All formats failed to parse. No formats found.

来源

2017-11-18 Ignacio

这看起来是工作：

as.POSIXct(dates, format = '%a, %d %b %Y %H:%M:%S') 
#[1] "2017-11-18 GMT" "2017-11-16 GMT" "2017-11-15 GMT" "2017-11-14 GMT"

来源

2017-11-18 13:38:49 LyzandeR

我们还可以使用lubridate包中的dmy_hms。

library(lubridate) 

dmy_hms(dates, tz = "GMT") 
# [1] "2017-11-18 GMT" "2017-11-16 GMT" "2017-11-15 GMT" "2017-11-14 GMT"

来源

2017-11-18 13:42:29 www

使用as.Date这样。它在最后忽略垃圾，所以这个工作。没有包被使用。

as.Date(dates, "%a, %d %b %Y") 
## [1] "2017-11-18" "2017-11-16" "2017-11-15" "2017-11-14"

来源

2017-11-18 15:42:01

转换为日期和剥离时间？

回答

相关问题