R Shinydashboard删除图形周围的空边框

Question

我正在使用ggplot2创建图形并将其嵌入到shinydashboard中。目标是使所有内容尽可能“透明”，这涉及将theme和renderPlot中的背景设置为与仪表板的背景相同的十六进制代码：

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边周围有一个非常细的白色边框，如下所示（我放大并将白色空间更改为红色以提高可见性。在实际输出中，它是白色的）

如何消除这个空白？