在R中加载excel文件时如何修复日期错误

Question

x1 <- read_excel("path",sheet = 1,skip=1,col_names =TRUE, col_types = c("date","date","date","date","date","date","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess","guess"))
View(x1)

我试图在 R 中加载一个包含多列的 Excel 工作表，但由于某种原因，整个数据集中的整个日期都是 1899-12-31 并且没有继续。前四列应该是“日期”格式。应该是 2018-01-01、2018-01-02 等等。我该如何解决这个问题？

Answer 1

对于 r 和 excel 的这个问题，您可以使用以下方法（答案会因您使用的是 windows 还是 mac 而异）：

在 Windows 上，对于日期（1901 年后）：

as.Date(43099, origin = "1900-01-01") # 2018-01-01
43099

在 Mac 上，对于日期（1904 年后）：

as.Date(41639, origin = "1904-01-01") # 2018-01-01

一些相关信息取自 https://www.rdocumentation.org/packages/base/versions/3.6.2/topics/as.Date

as.Date(32768, origin = "1900-01-01")
## Excel is said to use 1900-01-01 as day 1 (Windows default) or
## 1904-01-01 as day 0 (Mac default), but this is complicated by Excel
## incorrectly treating 1900 as a leap year.
## (these values come from http://support.microsoft.com/kb/214330)