GMT时间戳转机场当地时间后输出data.table时区异常求助

我太懂你这种憋屈感了——明明逻辑没问题，环境里看单个值时区都对，一放进data.table里就全被系统本地时区给“同化”了！我之前处理跨时区航班数据时也踩过一模一样的坑，给你捋清楚问题根源和解决方案：

首先得戳破一个容易忽略的R特性：POSIXct类型的向量只能有一个全局时区属性。也就是说，如果你的数据里包含多个机场（对应不同时区），整个local_time列没办法同时保留多个时区标签，最后会被统一成系统默认时区，但其实时间值本身是正确的——这就是你在环境窗口看单个值没问题，但data.table列时区不对的原因。

下面给你两个实用的解决方案，按需选择：

方案1：转成带时区信息的字符串（适合展示/输出） #

如果你的需求是清晰展示当地时间和对应的时区（比如EDT/EST），直接把转换后的时间格式化为字符串是最省心的：

library(data.table)
library(lubridate)

# 1. 初始化数据：务必给GMT时间列明确指定时区
dt <- data.table(
  gmt_time = as.POSIXct(c("2024-03-10 12:00:00", "2024-11-03 12:00:00", "2024-07-01 12:00:00"), tz = "GMT"),
  airport_code = c("JFK", "JFK", "LAX")
)

# 2. 机场与IANA时区映射（必须用IANA时区，才能自动识别夏令时）
airport_tz_map <- data.table(
  airport_code = c("JFK", "LAX"),
  tz = c("America/New_York", "America/Los_Angeles")
)
dt <- dt[airport_tz_map, on = "airport_code"]

# 3. 生成带时区标识的当地时间字符串
dt[, local_time_display := format(with_tz(gmt_time, tz = tz), "%Y-%m-%d %H:%M:%S %Z")]

# 查看结果，时区和夏令时都自动处理好了
dt

输出会像这样：

gmt_time airport_code                tz     local_time_display
1: 2024-03-10 12:00:00         JFK America/New_York 2024-03-10 08:00:00 EDT
2: 2024-11-03 12:00:00         JFK America/New_York 2024-11-03 07:00:00 EST
3: 2024-07-01 12:00:00         LAX America/Los_Angeles 2024-07-01 05:00:00 PDT

方案2：保留POSIXct类型（适合后续时间计算） #

如果还要对当地时间做计算，必须保留POSIXct类型，这时候接受列时区统一，但确保时间值正确即可：

# 生成转换后的当地时间POSIXct值
dt[, local_time := with_tz(gmt_time, tz = tz)]

# 修复GMT列的时区（如果被系统篡改了）
dt[, gmt_time := force_tz(gmt_time, tz = "GMT")]

# 虽然整个local_time列的时区标签会统一成最后一个赋值的时区，但单个值的时间是正确的
# 可以新增列记录每个行对应的实际时区
dt[, actual_tz := tz], by = .(airport_code)]

关键注意事项 #

1. 永远用IANA时区（如America/New_York）：别用EST/EDT这种缩写，它们不支持自动夏令时切换，IANA时区会自动识别每年的DST起止日期。
2. 初始化时就指定GMT时区：创建gmt_time列时直接用as.POSIXct(..., tz="GMT")，别事后用force_tz补救，避免隐式转换。
3. 区分with_tz和force_tz：with_tz是真正把时间转换到目标时区（会改时间值），force_tz只是给现有时间值贴个新时区标签（不改时间值）——这是很多人搞混的点！

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