在Shiny應用中縮放ggplot輸出

Question

我在收縮plotOutput時遇到問題。我想要做的只是稍微收縮ggplot，因此盒子裏有一點填充。

這是我的形象：

這是我想要的形象：

的區別是微妙的，但基本上我只想縮小圖形。

Answer 1

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