Почему в моем ggseasonplot отсутствует точка данных, если она включена в сезонные графики на тех же данных?

Question

Когда я создаю график ggseason, используя пакет прогноза, используя следующие данные ..

tsdata<- structure(c(5515, 5208, 5870, 5553, 5578, 5486, 5141, 5402, 5176, 
                   4746, 5401, 5749, 5892, 5994, 6334, 6119, 5891, 6148, 5927, 
                   5994,5633, 5150, 5937, 6152, 6619, 6391, 6733, 6454, 6236, 
                   6222, 5959, 6265, 6239, 5829, 6335), .Dim = c(35L, 1L), .Dimnames = list(NULL, "Count"), .Tsp = c(2016.33333333333, 2019.16666666667, 
 12), class = "ts")

, используя этот код:

forecast::ggseasonplot(tsdata)

Данные отображаются неправильно - отображаемые значения не отображаютсяне правильно, январь 2019 отсутствует, и есть 17 значений для 17 января ??

Если я нанесу идентичные данные, используя:

forecast::seasonplot(tsdata)

... все построено правильно - я 'Я сбит с толку - может кто-нибудь помочь с тем, что я делаю неправильно?

(простите меня, поскольку я относительно плохо знаком с R и очень плохо знаком с переполнением стека!)

G

Answer 1

Существует проблема с плавающей запятой в 9-м значении, которая составляет долю миллисекунды до 2017 года:

> options(digits = 16)
> time(tsdata)[9]
[1] 2016.999999999998

Я не знаю ts достаточно хорошо, чтобы понять, как избежать создания значения, подобного этому, но одним из способов было бы добавить долю секунды к каждому значению ...