R语言中如何将日期时间转换为指定格式的事件开始时间

步骤1：合并日期与时间为完整时间对象 #

首先需要将单独的日期字符串和时间字符串合并成带时间信息的datetime对象，避免只保留日期部分导致后续时间计算失效：

library(lubridate)

date_str <- "2018-08-10"
time_str <- "10:00:00"

# 方式1：拼接字符串后用ymd_hms解析
original_datetime <- ymd_hms(paste(date_str, time_str))

# 方式2：分别解析日期和时间后相加
original_datetime <- ymd(date_str) + hms(time_str)

步骤2：计算提前60分钟的事件开始时间 #

直接使用lubridate的时间间隔函数完成减法：

start_datetime <- original_datetime - minutes(60)

步骤3：格式化为目标字符串 #

用format()函数指定输出格式，匹配YYYYMMDDTHHMMSSZ的要求：

formatted_start <- format(start_datetime, "%Y%m%dT%H%M%SZ")
# 输出结果："20180810T090000Z"

完整可运行代码 #

library(lubridate)

date_str <- "2018-08-10"
time_str <- "10:00:00"

original_datetime <- ymd_hms(paste(date_str, time_str))
start_datetime <- original_datetime - minutes(60)
formatted_start <- format(start_datetime, "%Y%m%dT%H%M%SZ")

print(formatted_start)

问题排查提示 #

之前输出缺失时间，大概率是因为只解析了日期字符串（如单独用ymd(date_str)），没有将时间部分合并进去，导致datetime对象默认时间为00:00:00，后续计算和格式化都会丢失目标时间信息。

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