ggplotly从ggpairs中删除名称

Question

我正在使用ggplotly将散点图矩阵（由GGally :: ggpairs制作）转换为绘图对象。情节的某些方面似乎在翻译中丢失了......例如，当使用ggpairs时，绘制的变量的名称显示得很好......但是，在图形中包装它会渲染矩阵但没有变量名称。

这是一个没有名字的情节散点图的工作示例：

library(GGally)
library(plotly)
library(shiny)

server <- function(input, output) {
  output$scatterplot <- renderPlotly({
    pm <- GGally::ggpairs(iris, lower = list(combo = "box")) %>% ggplotly()
  })
}

ui <- fluidPage(
  plotlyOutput("scatterplot", height = 700)
)

shinyApp(ui = ui, server = server)