Для R, как я могу определить источник, когда есть ошибка при запуске POSIXct

Question

Возникла ошибка, говорящая, что я не указал источник - я думал, что источник был автоматически 1970-01-01 00:00:00, и мне не нужно указывать это. Код работал раньше, когда коллега написал это. Как мне исправить эту ошибку? Ниже приведен частичный код (я могу опубликовать полный скрипт, если это полезно)

Пример данных csv:

годМесяц, COUNT, ZONE, DOMAIN

2011-04-01 00: 00: 00,1786, Город1, Домен1

2011-05-01 00: 00: 00,1762, Город1, Домен1

2011-06-01 00: 00: 00,1932, Город1, Домен1

Сообщение об ошибке:

Ошибка в as.POSIXct.numeric (index (dfplot)): необходимо указать 'origin'

R-код (для ошибочного кода перейдите к комментарию # Прекрасно нанесите данные ):

  # Plot

  ######################################

  #Merge Time Series and Export Data
dfplot <- merge(as.xts(InputDataTimeSeries), as.xts(pred$lower))
dfplot <- merge(dfplot, as.xts(pred$mean))
dfplot <- merge(dfplot, as.xts(pred$upper))
dfplot <- merge(dfplot, as.xts(pred$fitted))

names(dfplot)[1:7] <- c("actuals", "lower80", "lower95", "predicted", "upper80", "upper95", "fitted")

#Nicely Plot the Data
ggplot(dfplot, aes(x=as.POSIXct(index(dfplot)))) +
geom_line(aes(y=fitted), col='grey90', size = 2) +
geom_line(aes(y=predicted), col='orange', size= 1) +
geom_line(aes(y=actuals), col='orange', size= 1) +

geom_ribbon(aes(ymin=lower80,ymax=upper80),alpha=0.3, fill="orange") +
geom_ribbon(aes(ymin=lower95,ymax=upper95),alpha=0.1, fill="orange") +
theme_bw() +
geom_vline(xintercept=as.numeric(as.POSIXct(end(InputDataTimeSeries))), linetype="dashed", fill="gray40") +
labs(title=paste(pred$method, "80/95% PI Bands" ) , x="Time", y="Observed / Fitted") +
theme(plot.title = element_text(size=18, face="bold"))