R中将日期时间列转时长时小时位被替换为19的解决方法

问题根源 #

你碰到的00小时被替换成19的情况，核心是时区偏移导致的：Excel里的骑行时长被R识别成了1899-12-31当天的时间点，若R默认时区为西五/西六区（比如北美东部时间），UTC时区的00:10:25会被转换为前一天的19:10:25，最终处理后出现错误格式。

三种修正方案 #

方案1：直接截取时间字符串片段

既然原始数据是1899-12-31 hh:mm:ss格式的字符或POSIX对象，直接提取后面的时间部分最直接：

# 若ride_length是POSIXct类型，先转字符再截取
bike_data$ride_length_clean <- substr(as.character(bike_data$ride_length), 12, 19)

# 若已是字符类型，直接截取
bike_data$ride_length_clean <- substr(bike_data$ride_length, 12, 19)

得到的是纯hh:mm:ss格式的字符串，完全不受时区干扰。

方案2：指定UTC时区处理POSIX对象

借助lubridate包的hms()函数，先将POSIX对象转换为UTC时区，再提取时长：

library(lubridate)

# 转UTC时区后再转为hms格式的时长对象
bike_data$ride_length_clean <- hms(as.POSIXct(bike_data$ride_length, tz = "UTC"))

得到的hms类型对象保留正确的时分秒，适配后续绘图需求（比如ggplot可直接用该类型做坐标轴）。

方案3：导入时直接指定时长类型

后续导入Excel时，用readxl包的col_types参数直接将该列识别为时长，从源头避免问题：

library(readxl)

# 导入时指定ride_length列为"time"类型
bike_data <- read_excel("你的文件路径.xlsx", col_types = c(ride_length = "time"))

导入后直接得到hms类型的时长数据，无需后续修正。

验证结果 #

处理后可通过head(bike_data$ride_length_clean)查看输出，确认00开头的时长显示为00:xx:xx而非19:xx:xx，确保后续绘图不受影响。

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