时间戳

首页 > 解决方案 > 在shinydashboard 中，白框被夹在右上角和右下角

r - 在shinydashboard 中，白框被夹在右上角和右下角

问题描述

我正在一个盒子里创建一个简单的 sinydashboard 图。出于某种原因，设置绘图的白框在右上角和右下角被剪裁。当我将框宽度设置为超过 500 时会发生这种情况。

这是我的代码：

library(shiny)
library(ggplot2)
library(shinydashboard)

#ui object 
ui <- fluidPage(
   dashboardPage(
      dashboardHeader(),
      dashboardSidebar(width = 0),
      dashboardBody(
         fluidRow(
            column(width = 12, 
                box(plotOutput("plot1", height = 400, width = 700)) 
            )
         )
      )
   )
)

#server object 
server <- function(input, output, session) {
  output$plot1 <- renderPlot({
      ggplot(data = diamonds) +
         geom_line(aes(x = depth, y = price)) 
  })
}

shinyApp(ui = ui, server = server)

标签： rshinyshinydashboard

解决方案

我发现图形的宽度和高度需要进行一些调整。对于您的示例，我可能会使用：

ui <- fluidPage(
  dashboardPage(
    dashboardHeader(),
    dashboardSidebar(width = 0),
    dashboardBody(
      fluidRow(
        box(plotOutput("plot1", height = 400), width = 12) 
      )
    )
  )
)

如果您想缩短图表的宽度，只需调整框宽度变量即可。12 是全窗口宽度，6 是一半，以此类推。

推荐阅读