如何将包含日期、时间及时区的POSIXct数据保存至CSV文件？

嘿，这事儿在R里处理起来挺简单的，我给你一步步拆解：

1. 先准备你的POSIXct数据 #

首先得确保你的数据是标准的POSIXct类型（带时区属性），如果是字符串格式，先转成POSIXct：

# 把示例字符串转成POSIXct类型，指定时区为GMT
time_data <- as.POSIXct(c("2018-05-28 19:14:48 GMT", "2018-05-28 19:16:28 GMT"), 
                        tz = "GMT")
# 把数据放进数据框，方便后续写入CSV
time_df <- data.frame(record_time = time_data)

2. 写入CSV的两种常用方式 #

CSV是纯文本格式，本身不存储时区元数据，所以分两种场景处理：

场景一：保留带时区标识的可读格式写入 #

如果你希望CSV里的时间和原始示例一样，带着GMT标识，需要先把POSIXct格式化为带时区的字符串，再写入：

# 格式化POSIXct为带时区的字符串
time_df$formatted_time <- format(time_df$record_time, "%Y-%m-%d %H:%M:%S %Z")
# 写入CSV，去掉行号
write.csv(time_df, "timestamps_with_tz.csv", row.names = FALSE)

打开生成的CSV，你会看到类似2018-05-28 19:14:48 GMT的完整时间字符串。

场景二：存储标准时间字符串（后续可恢复时区） #

如果只是想存储时间的核心信息，后续读取时再指定时区，直接写入即可：

# 直接写入数据框，POSIXct会自动转为标准时间字符串
write.csv(time_df, "timestamps.csv", row.names = FALSE)

# 后续读取时，记得指定时区恢复为POSIXct类型
read_back_df <- read.csv("timestamps.csv", stringsAsFactors = FALSE)
read_back_df$record_time <- as.POSIXct(read_back_df$record_time, tz = "GMT")

小提醒 #

• 一定要注意时区一致性，写入和读取时指定的时区要对应，避免时间偏移
• 如果你的数据量很大，write.table比write.csv更灵活，可自定义分隔符等参数

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