如何将UTC时间戳列批量转换为对应不同时区的时间？

with_tz的tzone参数仅支持单个时区值，无法直接接收向量（比如整列的时区值），这就是直接传mydat$timezone报错的原因。下面是具体的解决方案：

步骤1：先将字符型时间戳转为UTC时区的时间对象 #

原数据的time_stamp是字符串格式，需要先转成lubridate可处理的POSIXct时间对象：

library(lubridate)
# 转换为UTC时区的时间对象
mydat$time_stamp <- ymd_hms(mydat$time_stamp, tz = "UTC")

步骤2：逐行配对转换时区 #

提供三种可行的实现方法：

方法1：使用purrr包的map2（代码简洁，推荐） #

需要先加载purrr包：

library(purrr)
# 逐行将UTC时间转换为对应时区的本地时间
mydat$local_time <- map2(mydat$time_stamp, mydat$timezone, ~with_tz(.x, tzone = .y))

方法2：使用base R的mapply（无需额外安装包） #

# 用mapply实现逐元素配对处理
mydat$local_time <- mapply(function(time, tz) with_tz(time, tz), 
                           mydat$time_stamp, mydat$timezone)

方法3：使用dplyr的rowwise（适合tidyverse生态用户） #

library(dplyr)
# 逐行处理并生成新列
mydat <- mydat %>%
  rowwise() %>%
  mutate(local_time = with_tz(time_stamp, tzone = timezone)) %>%
  ungroup()

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