R tidyverse：显示0计数单元格并添加行列总计的实现

核心问题分析 #

你遇到的complete()报错，是因为在分组（比如按STUDENT_GENDER）后的reframe()中调用complete()时，单组数据仅包含当前性别，无法找到其他性别列来完成连接，导致full_join失败。同时要显示所有类别（包括无数据的非二元性别）和添加行列总计，需要换一种思路：预定义所有类别组合，再与统计结果关联，最后补充总计。

完整代码示例 #

假设你的学生数据框名为student_data，包含STUDENT_GENDER、RACE及成绩相关列（如SCORE），以下代码实现需求：

library(tidyverse)
library(janitor)  # 用于快速添加行列总计

# 1. 预定义所有需要强制显示的性别和种族类别
all_genders <- c("Male", "Female", "Non-binary")
all_races <- c("White", "Black", "Hispanic", "Asian", "Native American", "Pacific Islander", "Multiracial")

# 2. 生成统计表格（以人数统计为例，可替换为成绩均值/及格率等）
student_stat_table <- student_data %>%
  # 按性别、种族分组统计人数，.drop=FALSE保留分组中出现的类别（但完全无数据的类别仍会缺失）
  count(STUDENT_GENDER, RACE, .drop = FALSE) %>%
  ungroup() %>%
  # 关联所有性别-种族组合，补全无数据的行
  right_join(crossing(STUDENT_GENDER = all_genders, RACE = all_races), 
             by = c("STUDENT_GENDER", "RACE")) %>%
  # 将无数据的计数填充为0
  mutate(n = replace_na(n, 0)) %>%
  # 添加行列总计：row_name设置总计行名称，col_name设置总计列名称
  adorn_totals(where = c("row", "col"), row_name = "Total", col_name = "Total")

针对成绩统计的调整 #

如果需要统计成绩指标（如平均分、及格率），将count()替换为reframe()即可：

student_stat_table <- student_data %>%
  group_by(STUDENT_GENDER, RACE) %>%
  reframe(
    avg_score = mean(SCORE, na.rm = TRUE),
    pass_rate = mean(SCORE >= 60, na.rm = TRUE)
  ) %>%
  ungroup() %>%
  right_join(crossing(STUDENT_GENDER = all_genders, RACE = all_races), 
             by = c("STUDENT_GENDER", "RACE")) %>%
  # 将无数据的成绩指标填充为0（或根据需求用NA）
  mutate(across(c(avg_score, pass_rate), ~replace_na(.x, 0))) %>%
  adorn_totals(where = c("row", "col"), row_name = "Total")

关键要点 #

• 预定义类别：通过all_genders和all_races强制指定所有需要显示的类别，避免遗漏非二元性别等无数据分组。
• 关联全组合：用crossing()生成所有性别-种族的笛卡尔积，再与统计结果右连接，确保无数据的组合也能显示。
• 避免分组内调用complete()：分组后的数据仅包含当前组的类别，无法完成跨组的类别补全，必须先取消分组再做关联。
• 快速添加总计：janitor::adorn_totals()比手动用bind_rows+rowwise处理更简洁，同时支持行/列总计。

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