使prophet输出的图形的宽度适合闪亮的窗口

Question

我想用闪亮的R语言显示由prophet创建的图表。

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

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

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)

The width of the graph is smaller than the window size, and there are large blank spaces on the left and right.

Answer 1

在ui中，您需要指定绘图的宽度。

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