格式复杂字符串作为日期

Question

我正在使用r中的日期框架。我拥有的数据框架是下一步：

df
                          Date Q
1 Thu Nov 18 16:32:03 COT 2021 1
2 Tue Feb 01 23:28:14 COT 2022 1
3 Wed Feb 02 16:43:15 COT 2022 1
4 Sun Apr 03 22:17:28 COT 2022 1
5 Tue Apr 05 10:47:36 COT 2022 1
6 Thu Jul 01 16:52:52 COT 2021 1

使用dput（）：

#Dput
df <- structure(list(Date = c("Thu Nov 18 16:32:03 COT 2021", "Tue Feb 01 23:28:14 COT 2022", 
"Wed Feb 02 16:43:15 COT 2022", "Sun Apr 03 22:17:28 COT 2022", 
"Tue Apr 05 10:47:36 COT 2022", "Thu Jul 01 16:52:52 COT 2021"
), Q = c(1, 1, 1, 1, 1, 1)), row.names = c(NA, 6L), class = "data.frame")

主要问题是date变量。如您所见，它具有非常长而复杂的格式。我尝试使用as.date（）甚至lubridate，但我无法让代码工作以格式化日期。最后，我想拥有这样的东西：

                          Date Q    NewDate
1 Thu Nov 18 16:32:03 COT 2021 1 2021-11-18
2 Tue Feb 01 23:28:14 COT 2022 1 2022-02-01
3 Wed Feb 02 16:43:15 COT 2022 1 2022-02-02
4 Sun Apr 03 22:17:28 COT 2022 1 2022-04-03
5 Tue Apr 05 10:47:36 COT 2022 1 2022-04-05
6 Thu Jul 01 16:52:52 COT 2021 1 2021-07-01

如果可能的话，我也想从变量date中提取时间/小时。非常感谢。

Answer 1

我们可能会使用

df$NewDate <- as.Date(df$Date, format = "%a %b %d %H:%M:%S COT %Y")

-output

df$NewDate
[1] "2021-11-18" "2022-02-01" "2022-02-02" "2022-04-03" "2022-04-05" "2021-07-01

如果cot零件不是恒定的，

df$NewDate <- as.Date(sub("\\w+\\s+(\\d{4})$", "\\1", df$Date),
       format = "%a %b %d %H:%M:%S %Y")

，请使用sub删除该子字符串，然后如果我们想要时间

datetime <-  as.POSIXct(df$Date, format = "%a %b %d %H:%M:%S COT %Y")
df$NewDate <- as.Date(datetime)
df$Time <- format(datetime, "%T")

-Output

> df
                          Date Q    NewDate     Time
1 Thu Nov 18 16:32:03 COT 2021 1 2021-11-18 16:32:03
2 Tue Feb 01 23:28:14 COT 2022 1 2022-02-02 23:28:14
3 Wed Feb 02 16:43:15 COT 2022 1 2022-02-02 16:43:15
4 Sun Apr 03 22:17:28 COT 2022 1 2022-04-04 22:17:28
5 Tue Apr 05 10:47:36 COT 2022 1 2022-04-05 10:47:36
6 Thu Jul 01 16:52:52 COT 2021 1 2021-07-01 16:52:52