在Shiny应用程序中缩放ggplot输出

Question

我在缩小我的plotOutput时遇到问题。 我要做的只是稍微缩小ggplot，以便在框内填充一些填充物。

这是我的图像：

这是我想要的图像：

区别是细微的，但是基本上我只是想缩小图表。

Answer 1

plotOutput可以使用plotOutput的width参数。 然后，您可以将输出包装在具有中心对齐的div 。

library(ggplot2)
library(shiny)

gg <- ggplot(mtcars, aes(wt, mpg)) + geom_point() +
  theme(panel.background = element_rect(fill = 'grey'))

shinyApp(
  fluidPage(
    plotOutput('plot1'),
    div(
      plotOutput('plot2'),
      style = "padding-right: 10%; padding-left: 10%"
    )
  ),
  function(input, output, session){
    output$plot1 <- renderPlot(gg)
    output$plot2 <- renderPlot(gg)
  }
)