Я пытаюсь преобразовать даты в десятичную с какой-то целью, и когда мне нужна дата в исходном формате с использованием функции date_decimal, она не возвращает правильную фактическую дату.
Когда я использую (tz = "EST") в date_decimal, это показывает правильную дату, но я не уверен, в чем причина его отказа, не говоря уже о том, как он работает, используя "EST".
Может кто-нибудь поделиться, как lubridate преобразует дату в десятичную и наоборот?!
library(lubridate)
temp <- c('2015-01-01', '2015-02-01', '2015-03-01','2015-04-01', '2015-05-01', '2015-06-01', '2015-07-01', '2015-08-01', '2015-09-01', '2015-10-01', '2015-11-01','2015-12-01')
temp_decimal <- decimal_date(as.Date(temp,format = "%Y-%m-%d"))
temp_date <- as.Date(date_decimal(temp_decimal))
temp_date
[1] "2015-01-01" "2015-01-31" "2015-02-28" "2015-04-01" "2015-04-30" "2015-05-31" "2015-07-01" "2015-07-31" "2015-09-01" "2015-10-01" "2015-10-31" "2015-12-01"
Ожидаемый результат:
[1] "2015-01-01" "2015-02-01" "2015-03-01" "2015-04-01" "2015-05-01" "2015-06-01" "2015-07-01" "2015-08-01" "2015-09-01" "2015-10-01" "2015-11-01" "2015-12-01"