从Excel工作表导入R的日期时间数据转换错误问题求解

问题根源 #

• 格式字符串不匹配：你使用的format="%m-%d-%y %H:%M"与Excel中m/d/yyyy h:mm的格式不符——前者是横杠分隔、两位年份，后者是斜杠分隔、四位年份。
• 时区自动转换：read_excel默认会将Excel的日期时间（本质为UTC时间戳）转换为你的本地时区（此处为PDT），导致显示时间出现偏移。

解决方案 #

方法1：导入时直接指定时区 #

在read_excel中设置时区为UTC，避免自动转换，后续可按需调整时区：

library(readxl)
# 导入时指定时区为UTC，保留原始时间戳
System <- read_excel("你的文件路径.xlsx", sheet = "System", col_types = list(Registration_DateTime = "date"))
# 转换为目标时区，示例为北京时间
System$Registration_DateTime <- format(System$Registration_DateTime, tz = "Asia/Shanghai")

方法2：修正as.POSIXct的格式参数 #

若已完成数据导入，直接修正格式字符串并指定时区：

# 格式符改为%m/%d/%Y（匹配Excel的斜杠分隔、四位年份），同时指定时区
Registration_DateTime <- as.POSIXct(System$Registration_DateTime, format="%m/%d/%Y %H:%M", tz = "UTC")
# 如需转换为本地时区或其他时区，示例为PDT转北京时间
Registration_DateTime <- as.POSIXct(Registration_DateTime, tz = "Asia/Shanghai")

方法3：用lubridate包简化处理 #

lubridate对日期时间的解析更灵活：

library(lubridate)
# 按m/d/yyyy h:mm格式解析，指定时区为UTC
Registration_DateTime <- mdy_hm(System$Registration_DateTime, tz = "UTC")
# 转换时区示例
Registration_DateTime <- with_tz(Registration_DateTime, tz = "Asia/Shanghai")

验证结果 #

处理后，示例值4/26/2015 13:55会被正确解析为2015-04-26 13:55:00 UTC（或你指定的对应时区时间），不再出现时间偏移。

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