不同长度时间字符的时间解析：求更简洁可读的转换方案

给定日期时间向量：

tm <- c("20231130 162900", "20231009 75400", "20240216 3100", "20230725 0")

你当前的转换逻辑是拆分字符串补零再转格式，这里提供几个更简洁、可读性更强的实现方式：

1. 用lubridate自动匹配格式（最省心） #

lubridate的parse_date_time可以自动识别多种时间格式，省去手动补零的步骤：

library(lubridate)
parse_date_time(tm, orders = c("Ymd HMS", "Ymd HM", "Ymd H", "Ymd"))

输出结果与原方案一致：

[1] "2023-11-30 16:29:00 UTC" "2023-10-09 07:54:00 UTC" "2024-02-16 00:31:00 UTC" "2023-07-25 00:00:00 UTC"

orders参数列出了所有可能的格式组合，lubridate会自动匹配解析，代码逻辑更直接。

2. stringr管道式补零+解析 #

用tidyverse的管道串起补零和解析逻辑，可读性拉满：

library(tidyverse)
tm |> 
  str_split_fixed(" ", 2) |> 
  as_tibble() |> 
  mutate(V2 = str_pad(V2, 6, "left", "0")) |> 
  unite(datetime, V1, V2, sep = " ") |> 
  pull(datetime) |> 
  lubridate::ymd_hms()

也可以用正则替换一步补零：

str_replace(tm, " (\\d+)", ~ str_pad(.x, 7, "right", "0")) |> 
  lubridate::ymd_hms()

3. 原生base R实现（无需第三方包） #

如果不想依赖外部包，用base R也能轻松实现：

tm_padded <- sapply(tm, function(x) {
  parts <- strsplit(x, " ")[[1]]
  paste(parts[1], sprintf("%06d", as.integer(parts[2])))
})
as.POSIXct(tm_padded, format = "%Y%m%d %H%M%S", tz = "UTC")

通过sapply遍历元素补零，再用as.POSIXct解析，适合轻量级场景。

内容的提问来源于stack exchange，提问作者mr.T