在R中如何将指定带时区的日期时间转换为lubridate的mdy_hms 24小时制格式？

我来帮你搞定这个日期时间转换的小麻烦！你的核心需求是把带时区偏移的12小时制日期字符串转成lubridate的datetime格式，并且确保以24小时制的逻辑存储/展示对吧？

问题出在哪儿？ #

你之前用as.POSIXct的代码有两个关键问题：

• 格式符用错了：%hh不是R识别的时间格式，要匹配12小时制的小时得用%I，还要加上%p来识别AM/PM标记
• 没处理时区偏移部分：字符串末尾的-04:00需要用%z来匹配

用lubridate快速解决（推荐） #

既然你明确想用lubridate包，mdy_hms()函数简直是为这个场景量身定做的——它能自动识别12小时制时间、处理时区偏移，一步到位：

# 先加载lubridate包
library(lubridate)

# 单个字符串转换示例
datetime_str <- "6/5/2017 12:00:00 AM -04:00"
converted_dt <- mdy_hms(datetime_str)

# 查看转换结果（默认存储是24小时制的POSIXct类型）
converted_dt

# 如果要强制以24小时制格式输出展示
format(converted_dt, "%Y-%m-%d %H:%M:%S")

批量处理数据框的方法 #

针对你说的两年数据的数据集，直接把mdy_hms()应用到日期列上就行：

# 假设你的数据框是df，日期列名为raw_datetime
df$clean_datetime <- mdy_hms(df$raw_datetime)

不用lubridate的替代写法（纯base R） #

如果不想用lubridate，修正as.POSIXct的格式参数也能解决：

as.POSIXct("6/5/2017 12:00:00 AM -04:00", 
           format = "%m/%d/%Y %I:%M:%S %p %z", 
           tz = "UTC")

额外提示：时区处理 #

如果需要把转换后的时间统一转成UTC时区，可以用lubridate的with_tz()函数：

df$clean_datetime_utc <- with_tz(df$clean_datetime, tzone = "UTC")

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