Ошибка в seq.int (от r1 $ year до $ year by): 'from' должно быть конечным числом

Question

Это мой код -

uc_ts_plot <- ggplot(monthly_sales, aes(DATE,DAUTONSA)) + geom_line(na.rm=TRUE) + 
+     xlab("Month") + ylab("Auto Sales in Thousands") + 
+     scale_x_date(labels = date_format(format= "%b-%Y"),breaks = date_breaks("1 year")) + 
+     stat_smooth(colour = "green")

uc_ts_plot

Ошибка -

geom_smooth() using method = 'loess' and formula 'y ~ x' Error in seq.int(r1$year, to$year, by) : 'from' must be a finite number In addition: Warning message: Removed 627 rows containing non-finite values (stat_smooth).

Любая помощь? Я имел в виду эту ссылку - https://rstudio -pubs-static.s3.amazonaws.com / 343096_90b218e393454f79a5012e7ad0913e76.html , но код здесь не работает.

Answer 1

Что пошло не так, так это преобразование столбца DATE в формат даты.

Пример по приведенной ссылке предлагает:

monthly_sales$DATE <- as.Date(monthly_sales$DATE, "%m/%d/%Y")

Принимая во внимание, что формат ячеек "1967-01-01".

Поэтому все даты конвертируются в NA.

Правильное обращение с этим будет:

monthly_sales <- read.csv("DAUTONSA.csv",header = TRUE, stringsAsFactors = FALSE)
monthly_sales$DATE <- as.Date(monthly_sales$DATE, "%Y-%m-%d")

uc_ts_plot <- ggplot(monthly_sales, aes(DATE,DAUTONSA)) + geom_line(na.rm=TRUE) + 
  xlab("Month") + ylab("Auto Sales in Thousands") + 
  scale_x_date(labels = date_format(format= "%b-%Y"),breaks = date_breaks("1 year")) + 
  stat_smooth(colour = "green")

Обратите внимание на изменение в

monthly_sales$DATE <- as.Date(monthly_sales$DATE, "%Y-%m-%d")

линия