情节大小固定在闪亮？调整大小不起作用

我尝试改装this https://plot.ly/r/shinyapp-plotly-events/适合我的目的的闪亮应用程序。由于我想在其上方添加一些文本，因此我使用 Rmd 格式。以下代码与链接中的代码完全相同，只是我删除了服务器和用户界面功能，否则您将看不到所有输出。 （更新：我还扔掉了点击、缩放和画笔事件，以使代码更具可读性）

```{r cars, echo=FALSE}
library(plotly)
library(shiny)

fluidPage(
  radioButtons("plotType", "Plot Type:", choices = c("ggplotly", "plotly")),
  plotlyOutput("plot", height = "700px"),
  verbatimTextOutput("hover")
)

  output$plot <- renderPlotly({
    # use the key aesthetic/argument to help uniquely identify selected observations
    key <- row.names(mtcars)
    if (identical(input$plotType, "ggplotly")) {
      p <- ggplot(mtcars, aes(x = mpg, y = wt, colour = factor(vs), key = key)) + 
        geom_point()
      ggplotly(p) %>% layout(dragmode = "select")
    } else {
      plot_ly(mtcars, x = ~mpg, y = ~wt, key = ~key) %>%
        layout(dragmode = "select")
    }
  })

  output$hover <- renderPrint({
    d <- event_data("plotly_hover")
    if (is.null(d)) "Hover events appear here (unhover to clear)" else d
  })

```

I added height=700px to plotlyOutput，因为我的 ggplot-graph 中有一个更大的数据集和一个很长的图例。然而，当绘图调整时 - ggplot-graph 不会变得大于〜500px。

根据这个线程 https://stackoverflow.com/questions/44982025/on-shiny-app-ggplotly-renders-half-the-size-of-plot-ly-how-to-fix-that，这是一个问题ggplotly。问题是我需要设置height=700px in plotlyOutput停止ggplotly-来自过度绘制我的文本输出的图表。我正在寻找的是：

1. 除了设置之外，另一种阻止过度绘制的方法height=700px in plotlyOutput，或者，
2. 另一种改变尺寸的方法ggplotly-graph

为了实现后者，我尝试将高度添加到ggplotly之后到布局功能。我什至set autosize=FALSE https://stackoverflow.com/questions/44764272/resizing-plotlyoutput-object在相应的layout。我也尝试过在额外指定高度renderUI-功能 https://stackoverflow.com/questions/29693102/how-to-control-plot-height-size-in-interactive-rmarkdown-with-shiny?rq=1.

您可以在运行 ggplotly 后更改绘图属性。不确定你的意思是否是调整布局，但如果是这样，那么我无法复制你的问题，因为它超过 500 绝对没问题。

例如，在这种情况下：

pt<-ggplotly(p) %>% layout(dragmode = "select")
# have a look to all attributes
str(pt)

#Specifically height is
pt$height<-700

您可以测试差异：plotly为500，ggplotly为700（不要在中设置高度plotlyOutput itself)

  output$plot <- renderPlotly({
    # use the key aesthetic/argument to help uniquely identify selected observations
    key <- row.names(mtcars)
    if (identical(input$plotType, "ggplotly")) {
      p <- ggplot(mtcars, aes(x = mpg, y = wt, colour = factor(vs), key = key)) + 
        geom_point()
      pt<- ggplotly(p) %>% layout(dragmode = "select")
      pt$height<-700
      pt
      # ggplotly(p) %>% layout(dragmode = "select")
    } else {
      plot_ly(mtcars, x = ~mpg, y = ~wt, key = ~key) %>%
        layout(dragmode = "select",height = 500)
    }
  })

编辑：ggplotly和plotly具有相同的大高度，并且不重叠文本输出，前提是ui中的高度大于ggplotly布局参数中的高度：

  output$plot <- renderPlotly({
    key <- row.names(mtcars)
    if (identical(input$plotType, "ggplotly")) {
      p <- ggplot(mtcars, aes(x = mpg, y = wt, colour = factor(vs), key = key)) + 
        geom_point()
      ggplotly(p) %>% layout(dragmode = "select", height=800)
    } else {
      plot_ly(mtcars, x = ~mpg, y = ~wt, key = ~key) %>%
        layout(dragmode = "select")
    }
  })

plotlyOutput("plot", height = 800)