根据 UTC 偏移将 R 数据帧写入 excel 文件时时间戳发生变化

Question

我正在尝试将数据帧写入 excel 文件。示例数据框如下所示。由于时间戳是 class factor，我使用 lubridate 包将其转换为 POSIXct 格式。

library(lubridate)
library(xlsx)
df=structure(list(ts = structure(c(5L, 8L, 9L, 1L, 6L, 7L, 4L, 2L, 3L),
 .Label = c("01.09.2016 10:56:56", "01.09.2016 11:04:37", 
"01.09.2016 12:03:59", "02.09.2016 08:47:01", "30.08.2016 08:27:28", 
"30.08.2016 16:08:56", "31.08.2016 07:38:43", "31.08.2016 10:26:53",
"31.08.2016 10:37:40"), class = "factor")), .Names = "ts", 
row.names = c(NA,-9L), class = "data.frame")
df$ts = as.POSIXct(strptime(df$ts, "%d.%m.%Y %H:%M:%S"))
write.xlsx(df, "output.xlsx", sheetName="output")

当我尝试使用 write.xlsx 命令将数据帧写入 excel 文件时，我得到一个时间戳与原始输出不同的输出。

可以观察到时间偏移了两个小时。我住在属于时区 UTC+02:00 的地区。这可能是影响变化的因素吗？如果是这样，有没有办法防止 excel 根据 UTC 偏移更改时间信息？

Answer 1

R数据框中的数据是时区CEST。写入 excel 时，excel 会自动将时区更改为 GMT，这会导致 excel 的时差。一种解决方法是通过使用 force_tz.

在不更改时间数据的情况下将 R 中的时区更改为 GMT

df$ts = as.POSIXct(strptime(df$ts, "%d.%m.%Y %H:%M:%S"))
Sys.setenv(TZ="")    
df$ts = force_tz(df$ts,tzone="GMT")
write.xlsx(df, "output.xlsx", sheetName="output")

根据 UTC 偏移将 R 数据帧写入 excel 文件时时间戳发生变化

Timestamp changes when writing a R dataframe to an excel file depending upon UTC offset

excel

r

r-xlsx