แยกเวลาจากตรงกลางของสตริงใน R เมื่อสตริงเปลี่ยนค

หลายวิธีในการทำเช่นนี้:

1) การใช้นิพจน์ทั่วไป

df$time <- sub('.*\\s+(.*) UTC', '\\1', df$start.time)
df
#               start.time     time
#1 2020/01/05 21:30:04 UTC 21:30:04
#2 2020/01/05 21:30:04 UTC 21:30:04
#3 2020/01/05 21:30:04 UTC 21:30:04
#4 2020/01/05 21:30:04 UTC 21:30:04
#5 2020/01/05 21:30:04 UTC 21:30:04
#6 2020/01/05 21:30:04 UTC 21:30:04

ที่นี่ เราจับภาพทุกสิ่งระหว่างช่องว่างและ "UTC" \\1 ถูกใช้เป็นข้อมูลอ้างอิงย้อนหลังเพื่อบันทึกค่าที่แยกออกมา

2) แปลงเป็น POSIXct จากนั้น format

ซึ่งสามารถทำได้ในฐาน R :

format(as.POSIXct(df$start.time, format = "%Y/%m/%d %T"), "%T")

หรือใช้ lubridate

format(lubridate::ymd_hms(df$start.time), "%T")

ข้อมูล

df <- structure(list(start.time = structure(c(1L, 1L, 1L, 1L, 1L, 1L
), .Label = "2020/01/05 21:30:04 UTC", class = "factor")), 
class = "data.frame", row.names = c(NA,-6L))

เราสามารถใช้ anytime จาก anytime

library(anytime)
format(anytime(df$start.time), "%T")

หรือกับ as.ITime

library(data.table)
as.ITime(df$start.time)
#[1] "21:30:04" "21:30:04" "21:30:04" "21:30:04" "21:30:04" "21:30:04"

ข้อมูล

df <- structure(list(start.time = structure(c(1L, 1L, 1L, 1L, 1L, 1L
), .Label = "2020/01/05 21:30:04 UTC", class = "factor")), 
class = "data.frame", row.names = c(NA,-6L))