在R中为加州数据集设置无夏令时的太平洋标准时区

问题背景 #

处理加州的小时级时间序列数据集，日期时间列以UTC格式存储，希望转换为本地时间（太平洋标准时间PST）且全程保持1小时固定间隔，避开夏令时切换导致的时间跳变（类似纽约数据集使用America/Jamaica时区的方案）。

解决方案 #

方法1：使用固定偏移时区（推荐） #

利用POSIX标准的固定偏移时区Etc/GMT+8（对应UTC-8，与PST全年偏移一致，无夏令时切换），直接转换时区：

# 加载所需包
library(dplyr)
library(lubridate)

# 创建UTC时区的示例数据（包含2022年3月13日加州夏令时切换点）
dat_ca <- data.frame(
  Time = as.POSIXct(c("2022-03-13 16:00:00",
                      "2022-03-13 17:00:00",
                      "2022-03-13 18:00:00",
                      "2022-03-13 19:00:00",
                      "2022-03-13 20:00:00"), tz = "UTC")
)

# 转换为固定PST时区（无夏令时）
dat_ca_pst <- dat_ca %>%
  mutate(Time = with_tz(Time, tz = "Etc/GMT+8"))

# 查看结果
print(dat_ca_pst$Time)
# [1] "2022-03-13 08:00:00 GMT+8" "2022-03-13 09:00:00 GMT+8"
# [3] "2022-03-13 10:00:00 GMT+8" "2022-03-13 11:00:00 GMT+8"
# [5] "2022-03-13 12:00:00 GMT+8"

如果需要将时区标签显示为PST而非GMT+8，可以自定义输出格式：

dat_ca_pst_labeled <- dat_ca_pst %>%
  mutate(Time_label = format(Time, "%Y-%m-%d %H:%M:%S PST"))

print(dat_ca_pst_labeled$Time_label)
# [1] "2022-03-13 08:00:00 PST" "2022-03-13 09:00:00 PST"
# [3] "2022-03-13 10:00:00 PST" "2022-03-13 11:00:00 PST"
# [5] "2022-03-13 12:00:00 PST"

方法2：手动计算并强制时区 #

通过直接对UTC时间减去8小时，再强制设置为固定偏移时区，同样能实现无夏令时的PST时间：

dat_ca_pst_manual <- dat_ca %>%
  # UTC时间减8小时，得到PST时间
  mutate(Time = Time - hours(8)) %>%
  # 强制设置为固定偏移时区，避免夏令时切换
  mutate(Time = force_tz(Time, tz = "Etc/GMT+8"))

print(dat_ca_pst_manual$Time)
# [1] "2022-03-13 08:00:00 GMT+8" "2022-03-13 09:00:00 GMT+8"
# [3] "2022-03-13 10:00:00 GMT+8" "2022-03-13 11:00:00 GMT+8"
# [5] "2022-03-13 12:00:00 GMT+8"

说明 #

• 加州默认的America/Los_Angeles时区会自动切换夏令时（PDT），导致时间序列出现1小时跳变，无法保持固定间隔。
• Etc/GMT+8是POSIX标准定义的固定偏移时区，全年保持UTC-8的偏移，完美匹配PST的时间偏移，且不会触发夏令时切换。

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