R语言lubridate包将datetime对象改为下午2点且保留原日期的实现方法

方案1：使用lubridate的update()函数（最推荐，语义清晰） #

这个方法直接修改时间的时分秒字段，不会改变原有日期，逻辑更直观，也不会出现偏移误差：

library(lubridate)

# 处理当前时间
t1 <- update(Sys.time(), hour = 14, minute = 0, second = 0)

# 处理指定时间
t2 <- update(ymd_hms("2021-08-25 10:36:00"), hour = 14, minute = 0, second = 0)

方案2：Base R实现（无需依赖第三方包） #

如果不想引入lubridate依赖，可以用日期转字符串拼接后转回POSIXct的方式：

# 通用写法
adjust_to_2pm <- function(dt) {
  as.POSIXct(paste(as.Date(dt), "14:00:00"))
}

t1 <- adjust_to_2pm(Sys.time())
t2 <- adjust_to_2pm(as.POSIXct("2021-08-25 10:36:00"))

关于显示异常的说明 #

你原来的代码逻辑本身没有错误，显示不一致是R控制台的默认打印规则导致的：当POSIXct类型的对象时间部分为00:00:00，或向量内所有元素的时间部分完全一致时，控制台会简化输出只显示日期，实际存储的仍然是完整的日期时间数据，你可以通过str(t1)或as.numeric(t1)验证数据完整性。如果需要强制显示完整时间，可使用format指定输出格式：

format(t1, "%Y-%m-%d %H:%M:%S")

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