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。

闪亮的仪表板多个图表 - 重叠

1 个答案: