ggplotly discrete x axis with error bar

Hi ggplotly developer,

I am wondering in the following example. I would like the points to be connected similar as ggplot2, but after ggplotly renderig, they are not connected.

Any advice of how to make them connected? Thanks.

library(plotly)

population <- data.frame(Year=seq(1790, 1970, length.out=length(uspop)), 
                         Population=uspop, 
                         Error=rnorm(length(uspop), 5))

library(ggplot2)
p <- ggplot(population, aes(x=Year, y=Population, 
                       ymin=Population-Error, ymax=Population+Error))+
  geom_line()+
  geom_point(pch=2)+
  geom_errorbar(width=0.9)

p <- ggplotly(p)
p

Bắt đầu với ví dụ R được cung cấp bằng cách sử dụng ggplot(), geom_line(), geom_point(), geom_errorbar() và ggplotly(). So sánh đầu ra được render với biểu đồ ggplot2 ban đầu để xác định lý do các điểm không được nối trên trục x rời rạc. Được coi là hoàn tất khi biểu đồ đã chuyển đổi nối các điểm mà vẫn giữ nguyên các thanh sai số.