所有X射线图在Shiny中的分布图输出？

Question

所以问题是我正在使用xray程序包来将数据分布分配到Shiny仪表板中。

以下是我的数据中distributions函数用法的一个示例：

ui <- fluidPage(
     plotOutput("Distribute")
)
server <- function(input, output, session) {

      #For Distribution
      distribute <- reactive({
            distrLongley=longley
            distrLongley$testCategorical=c(rep('One',7), rep('Two', 9))
            xray::distributions(distrLongley, charts = T)
      })
      output$Distribute <- renderPlot({
            #distribute()
            xray::distributions(longley, charts = T)
      })

}

shinyApp(ui, server)

它显示3到4个分布，但实际上应该显示更多的分布。在控制台模式下运行时，我可以在“图”屏幕中看到所有图。但是，当我在Shiny中运行它时，它仅显示少量图表，这不是所需的输出。

我不知道为什么从RStudio控制台执行时函数会显示所有图，但在Shiny中执行时却不显示。与RStudio绘图查看器不同，Shiny中没有选项可移至下一页选项。

Answer 1

问题在于MyForm.Text数据集包含7列，而Text包创建了两个2 x 2图形网格。在第一个图形上显示4个图形，第二个图形上显示3个图形。最后一张图覆盖第一个图。

为解决此问题，您可以将两个图形临时保存到两个PNG文件中，然后将它们加载到longley中。请参见下面的代码：

xray

输出：