使用strptime后，使用Posixct从CHR到DateTime更改

Question

我正在尝试更改一些具有当前具有字符格式的日期时间信息的列的数据帧。例如，

$ Date <chr> "5/2/2016 23:59", "5/3/2016 23:59", "4/13/2016 1:08", "4/21/2016 23:59"

这就是我所做的。

weightLog_data[['Date']] <- format(strptime(weightLog_data[['Date']], "%m/%d/%Y %H:%M"), "%Y/%m/%d %I:%M %p")

这成功将AM/PM的常规时间转换为y/m/d，但仍处于字符格式。 $日期“ 2016/05/02 11:59 PM”，“ 2016/05/03 11:59 PM”，“ 2016/04/13 01:08 AM” 然后，我尝试使用此功能。

weightLog_data[['Date']] <- as.POSIXct(weightLog_data[['Date']], format="%Y/%m/%d %I:%M %p")

但是，我

$ Date <dttm> 2016-05-02 23:59:00, 2016-05-03 23:59:00, 2016-04-13 01:08:00, 2016-04-21 23:59:00

现在收到了现在/下午的失踪，它又恢复了军事。我该如何解决并不以军事形式并包括AM/PM？

Answer 1

Posixct只是以这种方式显示。如果您更改格式以使其以某种方式打印，它将不再是Posixct。如果您想在R中的日期时间工作，则可以与Posixct合作。当需要打印，显示或绘制数据时，您可以将其转换回字符。正如他们所说，你不能吃蛋糕吃它。

或者至少，并非一点点努力。可以创建自己的S3类，该类从Posixct继承，因此您仍然可以像Posixct对象一样操纵它。这样的班级的草稿可能是这样的：

as_datetime <- function(x) {
  x <- as.POSIXct(strptime(x, format = '%m/%d/%Y %H:%M'))
  structure(as.numeric(x), class = c("datetime", "POSIXct", "POSIXt"),
            tz = attr(x, 'tz'))
}

as.POSIXct.datetime <- function(x, ...) {
  class(x) <-  c("POSIXct", "POSIXt")
  x
}

format.datetime <- function(x, ...) format(as.POSIXct(x), "%Y/%m/%d %I:%M %p")

现在您可以以角色格式喂食数据：

d <- c("5/2/2016 23:59", "5/3/2016 23:59", "4/13/2016 1:08", "4/21/2016 23:59")

as_datetime(d)
#> [1] "2016/05/02 11:59 PM" "2016/05/03 11:59 PM" "2016/04/13 01:08 AM"
#> [4] "2016/04/21 11:59 PM"

data.frame(date = as_datetime(d))
#>                  date
#> 1 2016/05/02 11:59 PM
#> 2 2016/05/03 11:59 PM
#> 3 2016/04/13 01:08 AM
#> 4 2016/04/21 11:59 PM

但是，尝试使用此类会有很多障碍和陷阱。您需要包括一个ops方法，以防止在操纵它时恢复Posixct，并且某些功能可能会检查类属性并拒绝使用新类运行。同样，所有这些都可以解决所有问题，但是恕我直言，您应该习惯于使用Posixct，然后当您希望将数据显示给其他人时，将其格式化，但是您请作为最后一步 。