R语言如何合并Date与times类列生成POSIXct格式时间列

基础R无依赖方案 #

• 核心逻辑：将Date类列转换为当日零点的POSIXct对象，叠加Time类列对应的秒数偏移即可（times类存储值为当日时长占全天的比例，乘以86400即得到对应偏移秒数）
• 直接运行的合并代码：

# 合并 Date + Time 列
df$start_dt <- as.POSIXct(df$Date) + df$Time * 86400

# 合并 Date.1 + Time.1 列，自动适配NA值
df$end_dt <- as.POSIXct(df$Date.1) + df$Time.1 * 86400

注意：R会自动对含缺失值的行返回NA，不会触发运算报错，最终生成的两列均为标准POSIXct格式；若需指定时区，可在as.POSIXct()函数中传入tz参数即可

lubridate便捷方案 #

适合日常高频处理日期时间的场景，代码可读性更强

• 若未安装包先执行安装：

install.packages("lubridate")

• 加载并执行合并：

library(lubridate)
df$start_dt <- as_datetime(df$Date) + period(seconds = df$Time * 86400)
df$end_dt <- as_datetime(df$Date.1) + period(seconds = df$Time.1 * 86400)

结果校验 #

运行以下代码可验证列格式是否符合要求：

# 查看列类型
str(df[c("start_dt", "end_dt")])

预期输出片段示例：

POSIXct[1:10], format: "2021-04-01 11:46:00" "2021-04-01 11:46:00" "2021-04-02 13:15:00" ...

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