为什么我的时间序列图中出现错误？

Question

我正在处理这个数据集 - https://www.kaggle.com/dgomonov/new-york-city-airbnb-open-data

我正在尝试绘制每天的评论数量。

str(nycab$last_review) #since it is as charecter change to date
nycab$last_review <- lubridate::ymd(nycab$last_review)#change to date format

reviewsperday <- nycab %>%  #find number of reviews per day 
  group_by(nycab$last_review) %>%
  summarise(freq = n()) 

reviewsperday %>%
  plot_time_series(nycab$last_review, freq,  #plot time series 
                   .interactive = interactive,
                   .plotly_slider = TRUE )

但是，当我运行最后一段代码时，它给了我这个错误

Error: Problem with `mutate()` input `.value_smooth`.
x `nm` must be `NULL` or a character vector the same length as `x`
i Input `.value_smooth` is `auto_smooth(...)`.

这让我感到困惑，因为我知道 df 的长度相等。 这是因为我NA's日期列中有NA's吗？

Answer 1

看起来您找到了解决方案，但似乎只需要删除 NA 即可。

reviewsperday %>% filter(!is.na(last_review)) %>%
  plot_time_series(last_review, freq,  #plot time series 
                   .interactive = FALSE,
                   .plotly_slider = TRUE )

Answer 2

所以问题最终变成了两方面。 由于数据集中有NA's并且当您使用group_by它会将col更改回字符。

nycab <- na.omit(nycab)


reviewsperday <- nycab %>%  #find number of reviews per day 
  group_by(last_review) %>%
  summarise(freq = n()) 

reviewsperday$last_review <- lubridate::ymd(reviewsperday$last_review) #change to date format

reviewsperday %>%
  plot_time_series(last_review, freq,  #plot time series 
                   .plotly_slider = TRUE )

这不应该为您提供交互式时间序列图