Le traçage de deux graphes, l'un en dessous de l'autre, dans le panneau brillant

Je suis à produire deux graphes.

Maintenant ils sont présents dans les deux panneaux (onglets)

ui.r
mainPanel(
      tabsetPanel(
        tabPanel("Summary", dataTableOutput("dis")),
        tabPanel("Plot", plotOutput("plot1")),
        tabPanel("Plot", plotOutput("plot2"))
      )
    )

server.r

output$plot1 <- renderPlot({
    Plot1
  })


output$plot2 <- renderPlot({
    Plot1
 })

Je me demande comment puis-je montrer ces graphes l'un en dessous de l'autre dans le même panneau, et non pas deux panneaux différents, comme la façon dont il est maintenant. Merci les gens pour les aider.

pour ggplot2 parcelles que vous pouvez faire grid.arrange(gplot, gplot, ncol=1). pour la base de parcelles que vous pouvez faire par(mfrow=c(2,1)) ; plot(…) ; plot(…); par(mfrow=c(1,1))
cela a fonctionné aussi.

OriginalL'auteur Bridgeport Byron Tucker | 2015-10-18

  1. 10

    Vous pouvez les envelopper dans un fluidRow ou juste la liste à l'intérieur de la même tabPanel

    shinyApp(
    shinyUI(
        fluidPage(
            mainPanel(
                tabsetPanel(
                    tabPanel("Summary", dataTableOutput("dis")),
                    tabPanel("Plot",
                             # fluidRow(...)
                                 plotOutput("plot1"),
                                 plotOutput("plot2")
                             )
                )
            )
        )
    ),
    shinyServer(function(input, output) {
        output$plot1 <- renderPlot({
            plot(1:10, 1:10)
        })

        output$plot2 <- renderPlot({
            plot(1:10 ,10:1)
        })

        output$dis <- renderDataTable({})
    })
)

    Les envelopper dans une fluidRow offre un contrôle facile de terrain individuel des attributs comme largeurs par exemple,

    tabPanel("Plot",
         fluidRow(
             column(8, plotOutput("plot1")),
             column(12, plotOutput("plot2"))
         ))

    OriginalL'auteur jenesaisquoi