Lubridate时区处理问题：如何保留时间同时设置CEST时区？

核心问题原因 #

1. 时区标识符错误：你用tz="CEST"是错误的，CEST只是夏令时的缩写，并非标准的Olson时区标识符（lubridate依赖Olson时区数据库）。这类缩写无法被正确解析，导致时区转换逻辑混乱。
2. 函数用法误解：as_datetime()的tz参数作用是指定输入字符串对应的时区，随后会将其转换为UTC存储；而你需要的是保留时间数值，仅修改时区标签，这需要用force_tz()而非直接在解析时指定tz。

正确处理步骤 #

使用标准Olson时区（如"Europe/Berlin"、"Europe/Paris"，这类时区会自动识别夏令时/冬令时切换），结合force_tz()实现需求：

library(lubridate)

# 你的原始时间字符串
time_str <- "2021-09-23 12:00:00"

# 1. 先解析为无时区的时间（默认转为UTC，此时时间数值为12:00:00）
dt_raw <- as_datetime(time_str)

# 2. 强制设置时区为中欧时区（自动识别CEST），不改变时间数值
dt_cest <- force_tz(dt_raw, tz = "Europe/Berlin")

# 输出结果："2021-09-23 12:00:00 CEST"
print(dt_cest)

关于时间数值反转的疑惑 #

你看到的12:00:00 UTC转为10:00:00 CEST是因为使用了错误的时区标识符"CEST"，lubridate无法正确识别时区偏移，导致转换逻辑反向。当使用标准Olson时区时，UTC时间12:00转换为CEST会是14:00（CEST比UTC快2小时），而force_tz()则会保留12:00的数值，仅将时区标签改为CEST，也就是你需要的结果。

内容的提问来源于stack exchange，提问作者Hans W.