Question

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

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

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

1 个答案: