r-将时间和日期分隔成不同的列(格式=2019-05-26T13:50:56335288Z)

Question

在我的数据中，时间和日期存储在"cord"列(class=factor(中。我想把日期和时间分成两列。

数据如下：

1 2019-05-26T13:50:56.335288Z
2 2019-05-26T17:55:45.348073Z
3 2019-05-26T18:12:00.882572Z 
4 2019-05-26T18:26:49.577310Z 

我已使用：cord$Date <- as.POSIXct(cord$Time)成功提取日期

然而，我还没能找到一种方法来提取格式为"0"的时间；H： M:S"；。

CCD_ 2的输出返回时间戳的长列表：；2020-04-02T13:34:07.746777Z"2020-04-02T13:41:11.095014Z"；，"2020-04-02T14:08:05.508818Z"2020-04-02T14:17:10.337101Z"；，等等…

Answer 1

提取H:M:S

library(lubridate)
format(as_datetime(cord$Time), "%H:%M:%S")
#> [1] "13:50:56" "17:55:45" "18:12:00" "18:26:49"

如果你也需要毫秒：

format(as_datetime(cord$Time), "%H:%M:%OS6")
#> [1] "13:50:56.335288" "17:55:45.348073" "18:12:00.882572" "18:26:49.577310"

---

跳线所在位置：

cord <- read.table(text = "  Time
1 2019-05-26T13:50:56.335288Z
2 2019-05-26T17:55:45.348073Z
3 2019-05-26T18:12:00.882572Z 
4 2019-05-26T18:26:49.577310Z ", header = TRUE)

Answer 2

我通常使用lubridate和data.table来进行日期和操作工作。这对我来说很有效，将你的一些原始日期复制为字符串

library(lubridate)
library(data.table)
x <- c("2019-05-26T13:50:56.335288Z", "2019-05-26T17:55:45.348073Z")
# lubridate to parse to date time
y <- parse_date_time(x, "ymd HMS")
# data.table to split in to dates and time
split_y <- tstrsplit(y, " ")
dt <- as.data.table(split_y)
setnames(dt, "Date", "Time")
dt[]
# if you use data.frames instead
df <- as.data.frame(dt)
df