R语言lubridate默认格式下午夜时间打印与解析失败求助

以下是几个简便的解决方案，避免手动重复格式化的繁琐操作：

方案1：用readr包的读写函数替代基础包工具 #

readr（tidyverse生态成员）处理POSIXct类型时，默认会保留完整的YYYY-MM-DD HH:MM:SS格式，不会省略午夜的时分秒，读写全程无需额外配置：

library(tidyverse)

aa <- c( "2025-10-24 23:00:00", 
         "2025-10-25 00:00:00", 
         "2025-10-25 01:00:00"
        )

bb <- ymd_hms(aa, tz = "Etc/GMT+4") 

# 导出时用readr的write_csv
write_csv(tibble(x = bb), "mydatetimes.csv")

# 读取时用readr的read_csv
cc <- read_csv("mydatetimes.csv")

# 直接解析无报错
ymd_hms(cc$x, tz = "Etc/GMT+4")

注：read_csv会自动识别datetime类型，甚至无需手动调用ymd_hms。

方案2：封装格式化函数简化重复操作 #

如果坚持使用基础包的write.csv，可以把格式化逻辑封装成短函数，避免每次写冗长代码：

format_posix <- function(x) {
  format(as.POSIXct(x), "%Y-%m-%d %H:%M:%S")
}

# 导出前调用函数统一格式
bb_formatted <- format_posix(bb)
write.csv(tibble(x = bb_formatted), "mydatetimes.csv", row.names = FALSE)

# 读取后正常解析
cc <- read.csv("mydatetimes.csv")
ymd_hms(cc$x, tz = "Etc/GMT+4")

方案3：读取时兼容多种时间格式 #

如果已有格式不一致的CSV文件，可以用lubridate的parse_date_time函数，同时匹配带/不带时分秒的格式：

cc <- read.csv("mydatetimes.csv")
# 同时适配"YYYY-MM-DD HH:MM:SS"和"YYYY-MM-DD"两种格式
parse_date_time(cc$x, orders = c("Ymd HMS", "Ymd"), tz = "Etc/GMT+4")

内容的提问来源于stack exchange，提问作者MasonK