1

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

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

这是它在本地的样子：mca_locally

这是应用程序的链接：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)
4

1 回答 1

0

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

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

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

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

于 2017-06-16T18:41:53.817 回答