在R中使用dplyr::if_else()根据另一个变量的值更改POSIXct时间戳的时区

library(dplyr)

new_timestamp <- if_else(condition, true_value, false_value, tz = "desired_timezone")

library(dplyr)

# 创建一个包含时间戳和时区的数据框
data <- data.frame(timestamp = Sys.time(),
                   timezone = c("America/New_York", "Asia/Tokyo"))

# 使用if_else()函数根据时区更改时间戳的时区
data <- data %>%
  mutate(new_timestamp = if_else(timezone == "America/New_York", 
                                 timestamp, 
                                 with_tz(timestamp, tzone = "Asia/Tokyo")))

# 打印结果
print(data)