将日期时间字符串转换为日期类

Question

我有一个包含日期时间字符列的数据框。

当我使用as.Date 时，我的大部分字符串都被正确解析，除了少数情况。下面的示例有望向您展示发生了什么。

# my attempt to parse the string to Date -- uses the stringr package
prods.all$Date2 <- as.Date(str_sub(prods.all$Date, 1, 
                str_locate(prods.all$Date, " ")[1]-1), 
                "%m/%d/%Y")

# grab two rows to highlight my issue
temp <- prods.all[c(1925:1926), c(1,8)]
temp
#                    Date      Date2
# 1925  10/9/2009 0:00:00 2009-10-09
# 1926 10/15/2009 0:00:00 0200-10-15

如您所见，某些日期的年份不准确。当日期为两位数时，似乎会出现这种模式。

您能提供的任何帮助将不胜感激。

Answer 1

你可能把事情复杂化了，你有什么理由需要 stringr 包吗？您可以使用as.Date 及其format 参数来指定字符串的输入 格式。

 df <- data.frame(Date = c("10/9/2009 0:00:00", "10/15/2009 0:00:00"))
 as.Date(df$Date, format =  "%m/%d/%Y %H:%M:%S")
 # [1] "2009-10-09" "2009-10-15"

注意?as.Date的详细信息部分：

按照指定格式尽可能处理字符串：忽略任何尾随字符

因此，这也有效：

as.Date(df$Date, format =  "%m/%d/%Y)
# [1] "2009-10-09" "2009-10-15"

可用于指定输入format 的所有转换规范都可以在?strptime 的详细信息 部分中找到。确保转换规范的 order 以及任何 分隔符 与您的 input 字符串的格式完全对应。

---

更一般地说，如果您还需要时间组件，请使用 as.POSIXct 或 strptime：

as.POSIXct(df$Date, "%m/%d/%Y %H:%M:%S")    
strptime(df$Date, "%m/%d/%Y %H:%M:%S")

我从你给出的部分结果中猜测你的实际数据可能会是什么样子。

Answer 2

library(lubridate) 如果您的日期格式是这样的 '04/24/2017 05:35:00' 然后像下面这样更改 prods.all$Date2<-gsub("/","-",prods.all$Date2) 然后更改日期格式 parse_date_time(prods.all$Date2, orders="mdy hms")

Answer 3

最简单的方法是使用lubridate：

library(lubridate)
prods.all$Date2 <- mdy(prods.all$Date2)

此函数自动返回 POSIXct 类的对象，并且可以使用因子或字符。