r - 将 Excel 数字转换为日期

Question

我有一个数字 Excel 日期向量，即

date <- c(42963,42994,42903,42933,42964)

使用 excel_numeric_to_date 时的输出是我期望的来自 janitor 的函数包和as.yearmon来自 zoo 的函数包

as.yearmon(excel_numeric_to_date(date)) [1] "Aug 2016" "Sep 2016" "Jun 2017" "Jul 2017" "Aug 2017" .

但是，第一个元素转换为date向量不正确。 实际结果是:

as.yearmon(excel_numeric_to_date(date)) [1] "Aug 2017" "Sep 2017" "Jun 2017" "Jul 2017" "Aug 2017"

我尝试对 modern 使用不同的选项( mac pre-2011 和 date_system ) excel_numeric_to_date 中的参数但这也没有帮助

excel版本是2010

Answer 1

您可以简单地使用as.Date并指定原点，即

as.Date(date, origin="1899-12-30") 
#[1] "2017-08-16" "2017-09-16" "2017-06-17" "2017-07-17" "2017-08-17"

#or format it to your liking,

format(as.Date(date, origin="1899-12-30"), '%b %Y') 
#[1] "Aug 2017" "Sep 2017" "Jun 2017" "Jul 2017" "Aug 2017"

这个link提供了有关此问题的大量信息。