R语言中如何将带时区偏移的日期时间字符串转换为巴黎本地时间？

需要将格式为"2021-01-05T09:00:00+01:00"的字符串转换为巴黎本地时间（冬季CET，UTC+1），尝试force_tz得到错误结果，as.POSIXct/strptime返回NA。

错误原因分析 #

1. force_tz用法错误：ymd_hms(moment)会先将字符串解析为UTC时间（2021-01-05 08:00:00 UTC），force_tz是强行给这个时间戳指定巴黎时区，不做时区转换，因此显示08:00 CET，不符合预期。
2. %z格式不兼容带冒号的偏移：as.POSIXct/strptime的%z只能解析不带冒号的时区偏移（如+0100），而输入字符串是+01:00，导致解析失败返回NA。

正确解决方案 #

方案1：使用lubridate的ymd_hms + with_tz #

with_tz是专门用于时区转换的函数，能正确将已解析的时间转换为目标时区：

library(lubridate)
moment <- "2021-01-05T09:00:00+01:00"
date_obj <- ymd_hms(moment) %>% with_tz(tzone = "Europe/Paris")
print(date_obj)  # Output: "2021-01-05 09:00:00 CET"

原理：ymd_hms先把字符串解析为UTC时间（2021-01-05 08:00:00 UTC），with_tz将其转换为巴黎时区（UTC+1），得到09:00 CET，符合需求。

方案2：处理字符串偏移格式后用基础函数解析 #

先去掉时区偏移中的冒号，再用as.POSIXct解析，最后转换时区：

moment <- "2021-01-05T09:00:00+01:00"
# 替换偏移中的冒号，转为%z兼容格式
moment_clean <- gsub("([+-]\\d{2}):(\\d{2})$", "\\1\\2", moment)
# 解析为带时区的时间对象
date_obj <- as.POSIXct(moment_clean, format = "%Y-%m-%dT%H:%M:%S%z")
# 转换为巴黎时区
date_obj_paris <- as.POSIXct(date_obj, tz = "Europe/Paris")
print(date_obj_paris)  # Output: "2021-01-05 09:00:00 CET"

方案3：使用R 4.0+支持的%:z格式 #

R 4.0及以上版本新增了%:z格式，可直接解析带冒号的时区偏移：

moment <- "2021-01-05T09:00:00+01:00"
date_obj <- as.POSIXct(moment, format = "%Y-%m-%dT%H:%M:%S%:z", tz = "Europe/Paris")
print(date_obj)  # Output: "2021-01-05 09:00:00 CET"

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