R Shiny VIM Пакет агр

Question

Как отобразить только отсутствующую гистограмму, а не график для комбинаций с пакетом 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"))})

Спасибо,

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


      })