R 应用ggplotly（）后未连接线图

我有以下数据集

bike2 <- structure(list(dteday = c("2011-01", "2011-02", "2011-03", "2011-04", 
"2011-05", "2011-06", "2011-07", "2011-08", "2011-09", "2011-10", 
"2011-11", "2011-12", "2012-01", "2012-02", "2012-03", "2012-04", 
"2012-05", "2012-06", "2012-07", "2012-08", "2012-09", "2012-10", 
"2012-11", "2012-12"), cnt = c(38189L, 48215L, 63422L, 94870L, 
135821L, 143512L, 141341L, 136691L, 127418L, 123511L, 102167L, 
87323L, 96744L, 103137L, 164875L, 174224L, 195865L, 202830L, 
203607L, 214503L, 218573L, 198841L, 152664L, 123713L)), row.names = c(NA, 
-24L), class = c("tbl_df", "tbl", "data.frame"))

但是，当我尝试将ggplotly（）应用于图形时，该线断开连接

plotly::ggplotly(a)

如何解决这个问题？

一个注释，它在描述系列时与ggplot略有不同，导致了一些类似于此的翻译问题

一种解决方法是使用

geom_段

，明确每个元素要显示的内容：

library(dplyr)
bike2 %>%
  mutate(dteday_next = lead(dteday),
         year = substr(dteday, 1, 4),
         cnt_next = lead(cnt)) %>%
ggplot(aes(x=dteday, xend = dteday_next,
           y=cnt, yend = cnt_next, color = year))+
  geom_segment() +
  labs(title = "Bike Rentals Per Month",
       x = "Month/Year",
       y = "Count") + 
  ggthemes::theme_solarized() +
  theme(axis.text.x=element_text(angle=45, hjust=1)) -> a
a

plotly::ggplotly(a)

---

啊，我明白了。这是geom_segment（）的一个很好的用法。谢谢你，朋友！干杯

library(dplyr)
bike2 %>%
  mutate(dteday_next = lead(dteday),
         year = substr(dteday, 1, 4),
         cnt_next = lead(cnt)) %>%
ggplot(aes(x=dteday, xend = dteday_next,
           y=cnt, yend = cnt_next, color = year))+
  geom_segment() +
  labs(title = "Bike Rentals Per Month",
       x = "Month/Year",
       y = "Count") + 
  ggthemes::theme_solarized() +
  theme(axis.text.x=element_text(angle=45, hjust=1)) -> a
a

plotly::ggplotly(a)