R Shiny VIM 包 aggr

【问题标题】：R Shiny VIM Package aggrR Shiny VIM 包 aggr
【发布时间】：2018-08-24 19:56:48
【问题描述】：

如何只显示缺失的直方图而不是与 VIM 包组合的图？下面的代码显示了缺失和组合的图：-

output$miss <- renderPlot({
aggr(readDataForFreq(),col=mdc(1:2),prop =F,numbers =T,only.miss=T,plot=T,
          digits=15,
          labels = names(df), cex.axis = .9,cex.numbers=.5, oma = c(12,5,5,3),xlabs="Attributes",ylab=c("Histogram of Missing data", "Pink Missing-Blue Present"))})

谢谢，

【问题讨论】：

请看看这个stackoverflow.com/questions/5963269/…和这个stackoverflow.com/questions/48343080/…

标签： r shiny

【解决方案1】：

我可以使用 ggplot 解决这个问题：-

 data <- reactive({
      var.missing<- sapply(my_func(),function(x)sum(is.na(x)))
      var.missing<- var.missing[order(var.missing)]
      missing.df<- data.frame(variable=names(var.missing),missing=var.missing,missing.prop=var.missing/dim(myfunc())[1],stringsAsFactors=FALSE)     
    })


    output$miss <- renderPlot({

      ggplot(data=as.data.frame(data()),aes(x=(factor(variable,levels=variable,ordered=FALSE)),y=missing)) +
      geom_bar(stat = "identity",position="dodge") + labs(x="Variables",y="Number of Missing Values") + 
      theme(axis.text.x=element_text(angle=45, hjust=1))


      })

【讨论】：