R 闪亮-多面板输出需要看起来更大

我有代码通过

par（mfrow=c（2,2））

显示4个面板的输出。而且，我能够用Shiny中的侧栏输入成功地生成相同的结果。然而，覆盖4个面板的输出的总体尺寸非常小，并且显得拥挤。如何使打印输出占据最大空间

par(mfrow=c(2,2),
    xpd=NA)

plot(monthRange, dPerMonth, 
     type="l",
     xlab="Months",
     ylab="Count")

plot(monthRange, iPerMonth, 
     type="l",
     xlab="Months",
     ylab="Count")

plot(monthRange, euroPerMonth/1000, 
     type="l",
     xlab="Months",
     ylab="€ (000)")    

plot(monthRange, euroDPerMonth/1000, 
     type="l",
     xlab="Months",
     ylab="€ (000)")    

这有用吗

ui.R
...
plotOutput(outputId = "main_plot",  width = "100%"),
...

server.R
...
output$main_plot <- renderPlot(
  {plot(x, y)}, 
  height = 600, width = 800
)
...

ui.R
...
绘图输出（outputId=“main\u plot”，width=“100%”），
...
服务器.R
...
输出$main\u绘图这不是一个可复制的示例，请提供
server.r
ui.r
和数据。我将很快粘贴它。然而，请注意，我正在培训自己的R，这是一个例子，我从一些网页扩展。所以，没什么了不起的！