将R语言DataFrame写入xlsx文件时日期信息丢失问题

嘿，我完全懂你碰到的这个糟心事——这压根不是你R代码的问题，而是Excel本身的日期系统限制在搞鬼！

问题根源 #

Excel默认使用的1900日期系统（Windows环境下的标准），最早只能识别到1900年1月1日。任何早于这个日期的数值，Excel都没法解析成合法的日期格式，所以就会显示成一串####。哪怕你在R里把Date列完美转成了Date类型，导出到Excel后，Excel处理不了这些早于1900年的日期，自然就出问题了。你看到的“自定义”类型，是因为openxlsx默认会把R的Date类型映射为Excel的日期格式，但Excel接收到它处理不了的日期值时，就会用这种错误形式显示。

解决方案 #

这里给你几个实用的解决办法，按需选择：

1. 先把日期列转为文本再导出

最简单的办法就是在R里把Date列转成字符串，这样导出到Excel后就是纯文本，不会被Excel当成日期去解析：

# 将Date列转换为文本格式
hurricanes_3$Date <- as.character(hurricanes_3$Date)
# 导出到Excel
write.xlsx(hurricanes_3,"Cleaned Hurricane Data.xlsx")

2. 用openxlsx强制设置文本格式

如果你不想修改原始数据的类型，也可以在导出时给Date列指定文本样式，让Excel直接以文本形式显示：

library(openxlsx)
# 创建文本格式的样式
text_style <- createStyle(numFmt = "@") # "@"是Excel的文本格式代码
# 导出时指定Date列使用该样式
write.xlsx(
  hurricanes_3,
  "Cleaned Hurricane Data.xlsx",
  styles = list(Date = text_style),
  cols = "Date"
)

3. 格式化日期为可读性强的文本（可选）

如果想要保留日期的直观格式（比如1850-09-10），也可以用format()函数自定义文本格式：

hurricanes_3$Date <- format(hurricanes_3$Date, "%Y-%m-%d")
write.xlsx(hurricanes_3,"Cleaned Hurricane Data.xlsx")

这样处理后，Excel里的日期就会正常显示，不会再出现####的情况啦！

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