如何在Shiny仪表板中为多个图表设置间距

时间:2019-05-08 15:19:25

标签: r shiny shinydashboard

我正在尝试在Shinydashboard应用程序上绘制6张地图,并能够将2张地图添加到一行中,但是这些地图被切除,并且不占用列中的整个空间。这是一个截图,显示了第一行如何不以一种很好的格式传播:https://ibb.co/KqDy9rL

我已经尝试过这些列(6 ...来自的建议 Shiny dashboard multiple charts - overlapping,但无济于事。

[{"id":"quiz1", "label":"quiz1"}, {"id":"quiz2", "label":"quiz2"}]

,最初也是:

ui <- dashboardPage(
  dashboardHeader(title="Our Plots"),
  dashboardSidebar(),
  dashboardBody(
  fluidRow(column(6,box(leafletOutput("myMap",height="400px"),title="Da MF Map",status = "warning", solidHeader = TRUE, collapsible = TRUE)),
           column(6,box(plotOutput("plot2",height=400)))
           ) ,
  fluidRow(column(width =12, height = 12,
                  box(plotOutput("plot1",height=400)))),
 #          plotOutput("plot1")
 fluidRow(column(width =12, height = 12,
                 box(plotOutput("plot3",height=400)))
)
)
)
server <- function(input, output, session){

  data <- reactive({x <- stackoverflow
  })

  output$myMap <- renderLeaflet({coolmap})
  output$plot1 <- renderPlot({myplot})
  output$plot2 <- renderPlot({gif})
  output$plot3 <- renderPlot({title})
}
shinyApp(ui = ui, server = server)

非常感谢您的帮助

0 个答案:

没有答案