R/Rmissingness.R

In EccRiley/Riley: Riley: A working R-library of functions, data, color palettes (etc.) for everyday, and not-so-everyday, R tasks.

Rmissingness <- function(df, lab, ...) {
    data.frame(scales::comma(sapply(df, Risna)),
               paste0(round(100*(sapply(df, Risna)/nrow(df)), 2), "\\%")) %>%
        kable(caption = paste0("Missingness by Column in ", lab, " ($N_{rows}$ total = ",
                               scales::comma(nrow(df)), "; $N_{rows}$ with 0 missingness = ",
                               scales::comma(nrow(na.omit(df))), ")"),
              col.names = c("$N_{rows}$ Missing", "$\\%_{rows}$ Missing"),
              align = "r")
}