У меня есть этот фрейм данных - tSRetailMA
date sales 2-MA
1992 Jan 130683 NA
1992 Feb 131244 NA
1992 Mar 142488 140802.0
1992 Apr 147175 145035.2
1992 May 152420 149303.6
1992 Jun 151849 151301.2
1992 Jul 152586 151497.8
1992 Aug 152476 152211.2
1992 Sep 148158 152806.2
1992 Oct 155987 160558.4
Столбцы - дата, продажи и столбец скользящей средней 2-го порядка - 2MA. Первые и последние два значения 2-MA будут NA. То, что я пытаюсь сделать, это построить график продаж с течением времени, а также включить в график сглаженные значения 2-MA.
Это код для него -
tsRetailMA <-
tsRetail %>% # this just includes the date and sales columns
mutate('2-MA' = slide_dbl(sales, mean, .size = 5, .align = "center"))
tsRetailMA %>%
autoplot(sales) +
autolayer(tsRetailMA, '2-MA', color='red') +
xlab('year') + ylab('sales')+
ggtitle("sales") +
guides(colour=guide_legend(title='series'))
Когда я запускаю этот код, я получаю ошибку: дискретное значение, представленное в непрерывном масштабе. Как вы можете видеть из фрейма данных, продажи и 2-MA имеют цифры c. Я также проверил str(tsRetailMA)
.
Пример вывода - это фактические данные (черная) с красной линией, представляющей линию скользящей средней. Он не должен быть плоским. Я немного повозился с кодом, и ошибка исчезла, но я ошибся. Я не получил бы правильный результат без разрешения ошибки дискретного значения.
Любая помощь будет принята с благодарностью.