查找数据框中所有分类变量的级别

Question

我想在数据框中找到所有分类变量的级别（计数）。

输出应打印列名和相应的级别计数。

Answer 1

test <- data.frame(
  A = 1,
  B = rep(c("a", "b"), each = 13),
  C = factor(LETTERS),
  stringsAsFactors = FALSE
)
is.categorical <- function(x){
  is.character(x) | is.factor(x)
}

category <- which(sapply(test, is.categorical))
lapply(
  names(category), function(x){
    print(x)
    print(table(test[, x]))
  }
)