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