如何在R中通过S3方法合并多个字符变量的prop.table占比结果

步骤1：定义自定义S3类 #

首先给你的分类数据框绑定专属S3类，方便后续方法分派：

# 给当前数据集添加自定义类，保留原本的data.frame类属性
class(Student1995) <- c("survey_cat", class(Student1995))
# 后续同结构的新数据集也可以用同样方法绑定类：
# class(新数据集名称) <- c("survey_cat", "data.frame")

步骤2：编写专属summary S3方法 #

针对survey_cat类实现自定义汇总逻辑，自动遍历所有因子列计算计数和占比：

summary.survey_cat <- function(x, digits = 2, ...) {
  # 校验输入格式
  if (!inherits(x, "survey_cat") || !is.data.frame(x)) {
    stop("输入必须为survey_cat类的分类数据框")
  }
  # 遍历所有列生成占比统计
  res_list <- lapply(names(x), function(col_name) {
    col_tab <- table(x[[col_name]])
    col_prop <- prop.table(col_tab)
    # 拼接单变量统计结果
    col_res <- data.frame(
      水平 = names(col_prop),
      计数 = as.integer(col_tab),
      占比 = round(as.numeric(col_prop), digits),
      变量 = col_name,
      row.names = NULL
    )
    return(col_res[, c("变量", "水平", "计数", "占比")])
  })
  # 合并所有变量统计结果为总表
  total_res <- do.call(rbind, res_list)
  # 友好打印输出
  cat("==== 分类变量占比汇总结果 ====\n")
  for (var in unique(total_res$变量)) {
    cat("\n● 变量：", var, "\n")
    print(total_res[total_res$变量 == var, -1], row.names = FALSE)
  }
  # 隐式返回结果数据框，方便后续二次处理
  invisible(total_res)
}

步骤3：调用方法验证效果 #

直接对绑定了类的数据集调用summary即可输出结果，可通过digits参数自定义占比保留的小数位数：

summary(Student1995, digits = 2)

输出效果参考（对应你提供的数据集）： #

==== 分类变量占比汇总结果 ====

● 变量： alcohol
                水平 计数 占比
                 Not    5 0.10
 Once or Twice a week   16 0.32
         Once a month   12 0.24
          Once a week   14 0.28
More than once a week    3 0.06

● 变量： drugs
        水平 计数 占比
       Not   36 0.72
Tried once    6 0.12
Occasional    7 0.14
   Regular    1 0.02

● 变量： smoke
        水平 计数 占比
       Not   38 0.76
Occasional    5 0.10
   Regular    7 0.14

● 变量： sport
         水平 计数 占比
Not regular   13 0.26
    Regular   37 0.74

后续使用说明 #

拿到结构一致的新数据集后，仅需两步即可完成汇总：

1. 给新数据集绑定survey_cat类
2. 直接调用summary(新数据集)即可输出结果

内容的提问来源于stack exchange，提问作者iKcon