ggplot_missing

# Visualizar dados faltantes

# library(reshape2)
# library(ggplot2)
# library(dplyr)
ggplot_missing <- function(x){

  x %>% 
    is.na %>%
    melt %>%
    ggplot(data = .,
           aes(x = Var2,
               y = Var1)) +
    geom_raster(aes(fill = value)) +
    scale_fill_grey(name = "",
                    labels = c("Present","Missing")) +
    theme_minimal() + 
    theme(axis.text.x  = element_text(angle=45, vjust=0.5)) + 
    labs(x = "Variables in Dataset",
         y = "Rows / observations")
}

# Fonte: https://www.datacamp.com/community/tutorials/feature-selection-R-boruta
# Faz o mesmo que: Amelia::missmap()