R：将ggplotly与facet_grid一起使用时，请保留离散的x轴变量名称

Question

使用下面的代码，我将创建一组箱形图，这些箱形图按test.number分组，按主题划分。然后，我使用ggplotly创建一个交互式图形。但是，当将我的图转换为绘图图时，我离散的test.number被视为x轴上的数字变量……但仅适用于第二个面板（实际上是除第一个面板以外的任何面板）。

当进入ggplotly时，是否有一种方法可以防止这种转换。这似乎是以前的问题已解决的问题，但显然在使用facet_grid或facet_wrap时未解决。

 df = data.frame(subject = c(rep("Math", 20), rep("Reading", 20)), test.number = c(rep("S1", 15), rep("S2", 25)), campus = rep(c("A", "B", "C", "D", "E"), 8), score = round(rnorm(40, 80,10), 0))
    p<-ggplot(df, aes(x = test.number, y = score, text = campus)) + geom_boxplot()  + geom_jitter() + facet_grid(.~ subject)
     ggplotly(p)