閃亮的儀表板多個圖表 - 重疊

Question

我爲我的應用程序使用閃亮的儀表板包。 ，同時嘗試在同一頁面上顯示2個圖（每個在一個框中），它們重疊。 還試圖用fluidRow每個情節 - 但仍然看起來既情節都連接到同一盒（和重疊）

這是我的代碼：

mainPanel(
    fluidRow( 
    box(showOutput("MeasuresPlot","morris"),width=6,title="Graph"), 
    box(showOutput("ImportPlot","morris"),width=6,title="Graph2") 
    )  
) 

Answer 1

你的差不多了，你的液體排內可以使用的列是這樣的：

library(shiny) 
library(shinydashboard) 


ui <-dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(), 
    dashboardBody(
     fluidRow(
     column(6,box(plotOutput("plt1"),width=12,title="Graph",background ="green")), 
     column(6,box(plotOutput("plt2"),width=12,title="Graph2",background="yellow")) 
    ), 
     fluidRow(actionButton("plot","plot")) 
    ) 
) 

server <- shinyServer(function(input, output, session) { 
    observeEvent(input$plot,{ 
    output$plt1 <- renderPlot({plot(runif(100),runif(100))}) 
    output$plt2 <- renderPlot({plot(runif(100),runif(100))}) 
    }) 
}) 

shinyApp(ui = ui, server = server) 

一個fluidRow的最大寬度爲12，從而設置每個柱具有寬度6給出了2個相等的寬度圖。