如何防止 write.csv 将 POSIXct、日期和时间类更改回字符/因子？

我有一个 .csv 文件，其中每个字段分别表示日期时间、日期和时间。 本来它们都是字符字段，我对它们进行了相应的转换。 在我的代码末尾，如果我这样做：

str(data)

我会得到

datetime: POSIXct
date: Date
time: Class 'times'  atomic [1:2820392] (....) attr(*, "format")= chr "h:m:s"

现在，我对此非常满意，我想创建一个 .csv 文件，所以这就是我所拥有的：

write.csv(data, file = "data.csv", row.names = FALSE)

我也尝试过

write.table(data, "data.csv", sep = ",", row.names = FALSE)

我对两者都得到了相同的结果，这就是在编写新的 .csv 时我所有的转换都丢失了：一切都恢复为字符。

我怀疑我在 write 函数中遗漏了一些参数，但是我整个下午都在搜索，但我找不到什么。有人可以帮忙吗？

如果您想保留所有时间信息以便可以再次读入，则此方法应该有效：

dat <- data.frame(time=as.POSIXlt("2013-04-25 09:00 BST"), quantity=1)
dat2 <- dat
dat2$time <- format(dat2$time, usetz=TRUE)
write.csv(dat2, "time.csv", row.names=FALSE)

它给出以下 CSV 文件：

"time","quantity"
"2013-04-25 09:00:00 BST",1

其中明确显示时区信息；如果你申请write.csv到原来的dat，格式丢失。