shinyapps.io 不绘制图

Question

我使用 FactorMineR 包构建了一个简单的应用程序，根据所选变量进行 MCA 分析和聚类。

该应用程序在我的本地设备上运行良好，但它没有在 shinyapps.io 服务器上显示任何图（基本图和 ggplots）。我检查了包裹，本地和远程它们是相同的。我还检查了 FactoMineR pcg 中的 MCA() 函数是否可以通过提取一些结果并将它们呈现为表格来产生积极的结果。所以只有绘图的问题。我一直在尝试解决它两天，但没有任何帮助，所以我向您寻求任何建议。

这是它在本地的样子：

这是应用程序的链接：https://mikolajm.shinyapps.io/MCA_test/

还有一个可重现的例子

library(shiny)
library(FactoMineR)
library(cluster)
library(ggplot2)
data(tea)

ui <- fluidPage(

  # Application title
  titlePanel("MCA"),
  textOutput("packages"),br(),
  tableOutput("table"),br(),

  fluidRow(
    column(4, checkboxGroupInput("Variables", "Select variables:", 
                                 names(tea), selected=c("breakfast", "tea.time"))),
    column(4, plotOutput("plot")), column(4, plotOutput("plot1"))),
  fluidRow(column(12, plotOutput("dendro", height = "700px", width="1200px"))
  )
)

server <- function(input, output) {

  ## packages checking
  output$packages <- renderText({.packages()})
  tea_selected <- reactive({
    tea[, input$Variables]
  })

  ## table with some results from MCA() fun
  output$table <- renderTable({
    tea.mca <- MCA(tea_selected(), ncp=9)
    tea.mca$eig[1:5,]

  })

  ##  mca1
  output$plot <- renderPlot({
    library(FactoMineR)
    par(mfrow=c(2,2))
   tea.mca <- MCA(tea_selected(), ncp=9)
  })


  ## mca with ggplot
  output$plot1 <- renderPlot({

    tea.mca <- MCA(tea_selected(), ncp=9)
    tea_vars_df <- data.frame(tea.mca$var$eta2, Variable =names(tea_selected())) 

    library(ggplot2)

    pp <- ggplot(data=tea_vars_df, aes(x=Dim.1, y=Dim.2, label=Variable))+
      geom_hline(yintercept = 0, colour = "gray70") +
      geom_vline(xintercept = 0, colour = "gray70") +
      geom_point()+
      geom_text() +
      ggtitle("MCA plot of variables ")+
      theme_bw()

    pp
    })
  ### dendro 

  output$dendro <- renderPlot({
    library(FactoMineR)
    library(cluster)

    tea.mca <- MCA(tea_selected(), ncp=9)
    classif <- agnes(tea.mca$ind$coord,method="ward")
    plot(classif,main="Dendrogram",ask=F,which.plots=2)
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

Answer 1

编辑：你可以清楚地看到情节，但是

原创
当我运行你的代码时，我在你闪亮的应用程序中看不到绘图。

经过一番挖掘，我的猜测是：

您使用了FactoMineR 软件包附带的许多功能。例如，您在 output$plot1 代码块中使用函数 MCA。在您的 R 命令行中键入 MCA，它应该会打印该函数。你可以看到MCA 做了很多事情并最终调用了plot.MCA。现在在 R 命令行中输入 plot.MCA。你可以看到plot.MCA 有很多plot 命令，我很确定当你调用MCA 时它会执行所有的绘图。我认为您的问题是函数plot.MCA 中的plot 被发送到图形设备，并且这些图没有保存，即它们不是return() 到parent 环境。 这只是猜测。