## Not run:
# x <- mtcars
# x <- data.frame(x)
# x$am <- factor(x$am)
# x$vs <- factor(x$vs)
# set.seed(2017-01-19)
# x[sample(nrow(x))[1:6],sample(ncol(x))[1:6]] <- NA
#
#
# # nice grey colors from here: https://github.com/njtierney/visdat/blob/master/R/vis_miss_ly.R
# x %>% is.na10 %>% heatmaply( colors = c("grey80", "grey20"), dendrogram = "none")
# x %>% is.na10 %>% heatmaply( colors = c("grey80", "grey20"), k_col = 2, k_row = 2)
#
# ## End(Not run)
Run the code above in your browser using DataLab