基于Base R修改tibble中日期时间列时区的问题

你遇到的问题本质是：在lapply的匿名函数中，attr(x, "tzone") <- ""这个表达式的返回值是赋值操作的右侧（空字符串），而非修改后的POSIXct对象，所以最终得到的是一堆空字符串而非处理后的日期列。以下是两种可靠的Base R解决方案：

方案一：修改属性后返回原对象 #

直接在匿名函数中修改时区属性，然后显式返回修改后的日期时间对象：

# 示例 tibble
library(tibble)
df <- tibble(
  utc_time = as.POSIXct("2024-01-01 00:00:00", tz = "UTC"),
  ny_time = as.POSIXct("2024-01-01 00:00:00", tz = "America/New_York")
)

# 批量重置指定列的时区
target_cols <- c("utc_time", "ny_time")
df[target_cols] <- lapply(df[target_cols], function(x) {
  attr(x, "tzone") <- ""
  x  # 关键：返回修改后的对象
})

# 验证结果
str(df)

方案二：重新构造POSIXct对象 #

通过as.POSIXct重新转换日期列，指定tz = ""来重置时区，这种方式更稳妥，能确保对象结构合规：

df[target_cols] <- lapply(df[target_cols], function(x) {
  as.POSIXct(x, tz = "")
})

自动处理所有日期时间列 #

如果需要批量处理tibble中所有POSIXct类型的列，可以先筛选出目标列再操作：

# 识别所有POSIXct列
posix_cols <- sapply(df, inherits, what = "POSIXct")
# 批量重置时区
df[posix_cols] <- lapply(df[posix_cols], function(x) {
  attr(x, "tzone") <- ""
  x
})

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