使用R中的plotly平滑折线图的过渡

Question

当我尝试这段代码时，行没有按预期过渡。出现不需要的对角线。该线应该跟随正确过渡的点。有想法该怎么解决这个吗？

library(ggplot2)
library(plotly)
x=rep(seq(.1,  10, by=.1), each=10)
frame=rep(1:10, times=100)
y = floor(x)*as.numeric(x<=frame)+frame*as.numeric(x>frame)
df = data.frame(x=x, y=y, frame=frame)
p <- ggplot(df, aes(x=x, y=y)) + 
  geom_line(aes(frame = frame, ids=x))+
  geom_point(aes(frame=frame, ids=x), size=.5)
ggplotly(p)

以下是我所看到的屏幕截图：

预期的输出是我用gganimate完成的。这很好用，但我想使用plotly使其具有交互性。