在Shiny中用gridExtra并排ggplotly图报错，如何解决？

你的问题出在gridExtra的grid.arrange()只支持静态ggplot图形（grob对象），而ggplotly()输出的是plotly交互式图形对象，两者类型不兼容，所以才会抛出only 'grobs' allowed in "gList"的错误。下面给你三种可行的解决方案，按推荐程度排序：

方案1：用plotly原生的subplot()函数组合（推荐） #

plotly自带了subplot()函数，专门用来组合多个plotly交互式图形，完美适配你的场景：

library(shiny)
library(plotly)

u <- fluidPage(plotlyOutput(outputId = "myplots"))

s <- function(input, output) {
  pt1 <- reactive({
    ggplotly(qplot(42))
  })
  pt2 <- reactive({
    ggplotly(qplot(57))
  })
  
  output$myplots <- renderPlotly({
    # 用subplot组合两个plotly对象，设置2列布局
    subplot(pt1(), pt2(), ncols = 2) %>%
      # 可选：调整子图之间的间距，避免重叠
      layout(margin = list(l = 50, r = 50, b = 50, t = 50))
  })
}

shinyApp(u, s)

方案2：用Shiny布局组件分开展示（更灵活） #

如果需要更精细地控制每个图的大小和位置，推荐在UI里用fluidRow和column分别创建两个plotly输出，每个图单独渲染：

library(shiny)
library(plotly)

u <- fluidPage(
  fluidRow(
    # 第一列占6格（总12格，刚好一半）
    column(width = 6, plotlyOutput("plot1")),
    # 第二列占6格
    column(width = 6, plotlyOutput("plot2"))
  )
)

s <- function(input, output) {
  output$plot1 <- renderPlotly({
    ggplotly(qplot(42))
  })
  output$plot2 <- renderPlotly({
    ggplotly(qplot(57))
  })
}

shinyApp(u, s)

这种方法的优势是可以独立调整每个图的宽度（比如把column的width改成4和8），而且每个图的交互逻辑可以单独处理，扩展性更强。

方案3：用htmltools组合后通过UI输出 #

如果一定要在服务器端组合后再输出，可以用htmltools::tagList把两个plotly对象包装成HTML标签，再用renderUI和uiOutput展示：

library(shiny)
library(plotly)
library(htmltools)

u <- fluidPage(uiOutput(outputId = "myplots"))

s <- function(input, output) {
  pt1 <- reactive({
    ggplotly(qplot(42))
  })
  pt2 <- reactive({
    ggplotly(qplot(57))
  })
  
  output$myplots <- renderUI({
    # 用tagList组合，再用div设置并排样式
    div(
      style = "display: flex; gap: 20px;",
      tagList(pt1(), pt2())
    )
  })
}

shinyApp(u, s)

内容的提问来源于stack exchange，提问作者d_w