DataFrame多时区时间转POSIXct报错，求保留/统一时区方案

问题背景 #

现有包含时间字符串和对应时区的tibble：

timedate <- c("2024-03-31T03:14:00", "2024-03-24T01:07:00", "2024-04-09T22:45:00")
zones <- c("UTC", "Australia/Brisbane", "Australia/Canberra")
df <- tibble(timedate, zones)

尝试用mutate批量按对应时区解析时间时失败：

df <- mutate(df, timedatezone = as.POSIXct(timedate,format="%Y-%m-%dT%H:%M", tz = zones))

报错：

Error in `mutate()`:
In argument: `timedatezone = as.POSIXct(timedate, format = "%Y-%m-%dT%H:%M", tz = zones)`.
Caused by error in `strptime()`:
invalid 'tz' value

核心原因：as.POSIXct的tz参数仅支持单个时区字符串，无法直接传入时区向量批量处理。

解决方案 #

1. 生成带对应时区信息的POSIXct列 #

需要逐行匹配时间字符串和对应时区，用rowwise()实现逐行处理：

library(dplyr)

df <- df %>%
  rowwise() %>%
  mutate(timedatezone = as.POSIXct(timedate, format = "%Y-%m-%dT%H:%M", tz = zones)) %>%
  ungroup()

# 查看结果
df

输出示例：

# A tibble: 3 × 3
  timedate            zones              timedatezone       
  <chr>               <chr>              <dttm>             
1 2024-03-31T03:14:00 UTC                2024-03-31 03:14:00
2 2024-03-24T01:07:00 Australia/Brisbane 2024-03-23 14:07:00
3 2024-04-09T22:45:00 Australia/Canberra 2024-04-09 12:45:00

注：打印时会转换为当前会话的本地时区，但每个timedatezone元素实际存储了对应时区信息，可通过attr(df$timedatezone[[2]], "tzone")验证。

2. 统一转换到指定时区（如UTC） #

先按原时区解析时间，再用lubridate::with_tz()转换到目标时区：

library(dplyr)
library(lubridate)

df <- df %>%
  rowwise() %>%
  mutate(
    # 按原时区解析
    original_tz = as.POSIXct(timedate, format = "%Y-%m-%dT%H:%M", tz = zones),
    # 统一转换到UTC
    utc_time = with_tz(original_tz, tz = "UTC")
  ) %>%
  ungroup()

# 查看结果
df

输出示例：

# A tibble: 3 × 4
  timedate            zones              original_tz         utc_time           
  <chr>               <chr>              <dttm>              <dttm>             
1 2024-03-31T03:14:00 UTC                2024-03-31 03:14:00 2024-03-31 03:14:00
2 2024-03-24T01:07:00 Australia/Brisbane 2024-03-23 14:07:00 2024-03-23 14:07:00
3 2024-04-09T22:45:00 Australia/Canberra 2024-04-09 12:45:00 2024-04-09 12:45:00

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