将prophet输出的图形宽度适配到窗口

我想显示prophet在R语言中创建的图形，并使用Shining

但是，当prophet输出的图形显示为闪亮时，图形的宽度小于窗口大小，并且可能会在左侧和右侧创建较大的空白

如何使图形的宽度适合窗口大小

library(prophet)
library(shiny)

df <- data.frame(
  ds = seq(as.Date("2014-01-01"), as.Date("2018-12-31"), by = "month"),
  y = sample(60)
)

m <- prophet(df)
future <- predict(m, data.frame(ds = df[, 1]))


ui <- fluidPage(
  plotOutput("plot.prophet")
)

server <- function(input, output) {
  output$plot.prophet <- renderPlot({plot(m, future)})
}

shinyApp(ui = ui, server = server)

库（prophet）
图书馆（闪亮）
df在
ui
中，您需要指定绘图的宽度

ui <- fluidPage(
  plotOutput("plot.prophet", width = "100%")
)

ui我尝试了“width=100%”，但它在左侧和右侧留下了空白，就像我没有选择一样。