R Shinydashboard удалить пустую рамку вокруг графики - PullRequest
Новая
       16

R Shinydashboard удалить пустую рамку вокруг графики

0 голосов
/ 31 октября 2018

Я использую ggplot2 для создания графики и встраивания их в shinydashboard. Цель состоит в том, чтобы сделать все как можно более "прозрачным", что предполагает установку фона в theme, а также renderPlot с тем же HEX-кодом, что и задний фон панели: 

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

ui <- dashboardPage(
  dashboardHeader(title = "Dashboard"),
  dashboardSidebar(),
  dashboardBody(
    column(4, plotOutput("plot")
    )
  )
)

server <- function(input, output) {
  output$plot <- renderPlot({
    ggplot(mpg, aes(displ, hwy, colour = class)) + 
      geom_point() +
      theme(plot.background = element_rect(fill = "#ECF0F5"))
  }, bg="transparent")
}

shinyApp(ui, server)

Это приводит к следующему выводу, который, однако, имеет очень тонкую пустую границу вокруг 3-х сторон графика, как показано ниже (я увеличил масштаб и изменил пустое пространство на красный для наглядности. В реальном выводе он белый) .

enter image description here

Как я могу устранить это пустое место?

...