在Shiny app中缩放ggplot输出

Question

我在缩小plotOutput方面遇到了麻烦。我想做的就是略微缩小ggplot，这样盒子里就会有一点填充。

这是我的图像：

这是我想要的图像：

差异很微妙，但基本上我只是想缩小图表。

Answer 1

width中的plotOutput参数可用于此目的。然后，您可以将输出包装在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)
  }
)