r - 如何将日期和时间分成两列

Question

我需要拆分 10/4/2018 19:21并尝试过

AccidentsMp$Hours <- format(as.POSIXct(AccidentsMp$Job.Date, "%Y-%m-%d %H:%M:%S", tz = ""), format = "%H:%M")

AccidentsMp$Dates <- format(as.Date(AccidentsMp$Job.Date,"%Y-%m-%d"), format = "%d/%m/%Y")

如何将上面的日期和时间拆分成两列？数据现在属于 factor 类。

Answer 1

这是 tidyverse 的一个选项

library(tidyverse)
library(lubridate)
df %>% 
  mutate(Job.Date = dmy_hm(Job.Date)) %>% 
  separate(Job.Date, into = c('date', 'time'), sep=' ', remove = FALSE)
#           Job.Date       date     time
#1 2018-04-10 19:21:00 2018-04-10 19:21:00
#2 2018-04-10 19:22:00 2018-04-10 19:22:00
#3 2018-04-10 19:23:00 2018-04-10 19:23:00

---

或者使用base R

read.table(text = as.character(df$Job.Date), header = FALSE,
     col.names = c("date", "time"))

数据

df <- structure(list(Job.Date = structure(1:3, .Label = c("10/4/2018 19:21", 
"10/4/2018 19:22", "10/4/2018 19:23"), class = "factor")), 
 class = "data.frame", row.names = c(NA, -3L))