在閃亮的面板上繪製兩個圖形，一個在另一個下面，

Question

我生成兩個圖。

現在他們表現出了兩種不同的面板（標籤）

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 
}) 

我想知道我該怎麼讓這些圖一個低於其他在同一面板，而不是兩個不同的面板怎麼樣它就是現在。謝謝大家的幫助。

Answer 1

你可以用它們在fluidRow或只列出他們同樣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({}) 
    }) 
) 

在fluidRow結束語他們內部提供了各個描繪容易控制屬性，如寬度例如，

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