На шинидашборде белая коробка обрезается в верхней правой и нижней правой частях - PullRequest
1 голос
/ 08 апреля 2019

Я создаю простой сюжет 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)

1 Ответ

0 голосов
/ 08 апреля 2019

Я считаю, что ширину и высоту графиков нужно немного изменить. Для вашего примера я бы, вероятно, использовал:

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

Если вы хотите сократить ширину диаграммы, просто настройте переменную ширины поля. 12 - полная ширина окна, 6 - половина и т. Д.

...