Scale ggplot output in Shiny app

Question

I'm having trouble shrinking my plotOutput. All I want to do is slightly shrink the ggplot so there is a little padding in the box.

This is the image I have:

This is the image that I want:

The difference is subtle, but basically I just want to shrink the graph.

Perhaps [this](https://stackoverflow.com/questions/17838709/scale-and-size-of-plot-in-rstudio-shiny) may help — akrun, Sep 28 '17 at 21:45

Gregor de Cillia · Accepted Answer · 2017-10-07T02:07:32.880

1

The width argument in plotOutput can be used for that purpose. Then you can wrap the output in a div with central alignment.

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)
  }
)

edited Oct 07 '17 at 02:07

answered Sep 28 '17 at 21:49

Gregor de Cillia

7,397
1
26
43

It's not the whole panel I want to shrink, just the ggplot – Tarzan Sep 30 '17 at 18:16

Scale ggplot output in Shiny app

1 Answers1