r - 从R中的日期时间字段中提取日期和时间

Question

我有一个看起来像这样的日期集，读数日期是 POSIXct 格式。我想在 R 的一个字段中提取日期，在另一个字段中提取时间。我试图尽可能避免使用 base R，所以如果你能做到这一点，那就太好了（lubridate）。我希望新提取的字段采用正确的格式，因为我的最终目标是将时间 (x) 与售出的总商品 (y) 进行对比，以确定一天中的最高销售时间。谢谢你的帮助。

标签： rlubridate

Answer 1

如果我理解得很好，R 可以在您导入数据时正确读取您的日期和时间（因为它们是 POSIXct 格式），但是您不能从日期时间列中以正确的格式提取日期和时间。

考虑到您在 R 中有一个 data.frame，如下所示：

            date_time Sold
1 2020-01-01 03:16:01    2
2 2020-01-02 02:15:12    2
3 2020-01-03 08:26:11    3
4 2020-01-04 09:29:14    2
5 2020-01-05 12:06:06    1
6 2020-01-06 08:08:11    3

Lubridate 不提供提取时间分量的功能，因此您必须使用 minute()、hour() 和 second() 函数逐个提取。然后你可以用 paste() 函数连接这些组件。现在，有了日期，您可以使用 date() 函数进行提取，然后使用 format() 函数以您想要的方式格式化这些日期。

library(lubridate)
library(dplyr)
library(magrittr)

tab <- tab %>% 
  mutate(
    date = as.Date(date_time),
    hour = hour(date_time),
    minute = minute(date_time),
    second = second(date_time)
  ) %>% 
  mutate(
    format_date = format(date, "%m/%d/%Y"),
    format_hour = paste(hour, minute, second, sep = ":")
  )

结果如下：

tab %>% select(format_date, format_hour) %>% head()

  format_date format_hour
1  01/01/2020     12:4:23
2  01/02/2020     3:19:13
3  01/03/2020      8:6:24
4  01/04/2020      6:28:2
5  01/05/2020     2:16:20
6  01/06/2020     12:8:28