大facet_grid的Plotly错误

Question

我想我可能在ggplotly包中发现了与plotly函数相关的错误。

在下面的代码中，结果适用于n = 9但不适用于n = 10.

任何人都可以建议解决这个问题，或者至少是错误的原因吗？

require(data.table)
require(plotly)
require(ggplot2)

n <- 10
jj <- CJ(week=c(1:n),day=c('Sun','Mon','Tue','Wed','Thu','Fri','Sat'),hour=c(0:23))
jj[,day:=factor(day,levels = c('Sun','Mon','Tue','Wed','Thu','Fri','Sat'))]
jj[,n:=rnorm(nrow(jj))]
p1 <- ggplot(jj,aes(x=hour,y=n))+geom_line()+facet_grid(week~day)
p1
p1 <- ggplotly(p1)
p1

谢谢，