时间戳

首页 > 解决方案 > 有没有办法清理 r 中的日期和时间数据？

r - 有没有办法清理 r 中的日期和时间数据？

问题描述

我试图将早上 4 点到下午 12 点的时间总结为早上，晚上 12 点到 9 点，晚上 9 点到凌晨 4 点。我这样做是为了建立一个逻辑回归模型，以了解是否会发生逮捕，并考虑犯罪类型和犯罪时间。

我曾尝试使用 lubridate 函数，但由于格式是字符串，我无法使用该函数。而且，as.Date函数也无济于事，因为某些字符串具有此值：03/26/2015 06:56:30 PM而某些行具有此值：04-12-15 20:24。两种格式完全不同，因此无法使用该as.Date功能。

除了as.Date函数之外，我们可以做的是通过执行类似 => 的操作将所有的转换04-12-15 20:24为03/26/2015 06:56:30 PM格式，如果你找到-然后将其替换为/（对于日期格式）。

我不知道如何实现这个目标。

附上部分数据的图片

标签： rdatedatetime

解决方案

您可以case_when()从dplyr库中使用来确定日期的格式，然后根据格式类型进行转换。从那里我们检查 24H 时间组件，以根据 OP 中的 bin 确定一天中的时间。

library(dplyr)

chicago15 <- data.frame(Date = c("03/26/2015 06:56:30 PM","04-12-15 20:24",
                             "03/26/2015 06:56:30 AM","04-12-15 21:24",
                             "12/31/2017 03:28:43 AM"))

chicago15 %>% 
  dplyr::mutate(Date2 = dplyr::case_when(
    grepl('-',Date) ~ as.POSIXct(Date,format = '%m-%d-%y %H:%M'),
    TRUE ~ as.POSIXct(Date,format = '%m/%d/%Y %I:%M:%S %p')
  )) %>%

  dplyr::mutate(Time_of_Day = dplyr::case_when(
    as.numeric(format(Date2,'%H')) >= 21 ~ 'night',
    as.numeric(format(Date2,'%H')) >= 12 ~ 'evening',
    as.numeric(format(Date2,'%H')) >= 4 ~ 'morning',
    TRUE ~ 'night'
  ))

  Date                   Date2               Time_of_Day
1 03/26/2015 06:56:30 PM 2015-03-26 18:56:30     evening
2         04-12-15 20:24 2015-04-12 20:24:00     evening
3 03/26/2015 06:56:30 AM 2015-03-26 06:56:30     morning
4         04-12-15 21:24 2015-04-12 21:24:00       night
5 12/31/2017 03:28:43 AM 2017-12-31 03:28:43       night

推荐阅读