在R中一次计算所有变量的观察次数

# 创建一个包含多个变量的数据框
data <- data.frame(
  var1 = c("A", "B", "A", "C", "B"),
  var2 = c("X", "Y", "X", "Z", "Y"),
  var3 = c(1, 2, 1, 3, 2)
)

# 使用table()函数计算所有变量的观察次数
obs_counts <- lapply(data, table)

# 打印每个变量的观察次数
for (i in seq_along(obs_counts)) {
  cat("Variable", names(obs_counts)[i], ":\n")
  print(obs_counts[[i]])
  cat("\n")
}