ggplotly从ggpairs中删除名称

我正在使用ggplotly将散点图矩阵（由GGally:：ggpairs生成）转换为plotly对象。绘图的某些方面似乎在转换过程中丢失了…例如，当使用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)

库（GGally）
图书馆（绘本）
图书馆（闪亮）
服务器