Below, we summarise each character column by reporting the most common value (but for some reason there is no mode() function in R, so we need to write our own). # function to calculate the mode (most common) observation mode <- function(x) { names(sort(table(x)))[1] } # ...