r - 在 Shiny 的应用程序上，ggplotly() 渲染的大小是 plot_ly() 的一半。如何解决？

Question

使用 ggplotly 与 plot_ly 在 Shiny 的应用程序中生成绘图时，绘图的宽度小于一半。这是为什么？有没有办法修复它，以便 ggplotly 生成与 plot_ly 或 ggplot2 宽度相同的图？我试过使用宽度参数，但这并不能解决它。

Shiny 应用程序的输出:

library(shiny)
library(plotly)
library(ggplot2)

ui <- fluidPage(
   titlePanel("plotly with shiny"),
      mainPanel(
        h4("Using ggplotly:"), plotlyOutput("ggplotly", width = "200"),
        h4("Using native plotly:"), plotlyOutput("plotly"),
        h4("Using ggplot:"), plotOutput("ggplot")
      )
)

server <- function(input, output) {
  data <- reactive({
    d = diamonds[sample(nrow(diamonds), 300),]
  }) 
  output$ggplot <- renderPlot({
      ggplot(data(), aes(x=carat, y=price, color=price)) + geom_point()
   })
   output$ggplotly <- renderPlotly({
     v = ggplot(data(), aes(x=carat, y=price, color=price)) + geom_point()
     ggplotly(v)
   })
   output$plotly <- renderPlotly({
     plot_ly(data(), x = ~carat, y = ~price, color = ~price)
   })
}

shinyApp(ui = ui, server = server)

Answer 1

不要使用参数 width的 plotlyOutput ，并使用 ggplotly 之一:

ggplotly(v, width=800)