闪亮 - 多面板输出需要显得更大

Question

我有代码可以通过 par(mfrow=c(2,2)) 显示 4 个面板的输出。而且，我能够在 Shiny 中使用侧边栏输入成功生成相同的内容。但是，覆盖 4 个面板的输出的整体尺寸非常小，显得很拥挤。如何使 Shiny 输出绘图以占用最大值 space？

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

Answer 1

这有帮助吗？

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

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