R中闪亮的应用程序中的插图布局；使布局更简洁

library(shiny)

ui <- fluidPage(
  plotOutput("plot")
)

server <- function(input, output) {
  output$plot <- renderPlot({
    # 插图绘制代码
    plot(x, y)
  })
}

shinyApp(ui, server)

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(6, plotOutput("plot1")),
    column(6, plotOutput("plot2"))
  )
)

server <- function(input, output) {
  output$plot1 <- renderPlot({
    # 插图1绘制代码
    plot(x1, y1)
  })
  
  output$plot2 <- renderPlot({
    # 插图2绘制代码
    plot(x2, y2)
  })
}

shinyApp(ui, server)

library(shiny)

ui <- fluidPage(
  tags$div(
    style = "display: flex; justify-content: center;",
    tags$div(
      style = "width: 50%;",
      plotOutput("plot")
    )
  )
)

server <- function(input, output) {
  output$plot <- renderPlot({
    # 插图绘制代码
    plot(x, y)
  })
}

shinyApp(ui, server)