如何强制 0 计数摘要单元格并将总计添加到列和行 （R tidyverse）

问：

好的，下面是我的数据示例：

我需要报告 3 种性别（男性、女性、非二元性别）和 7 个种族（西班牙裔或拉丁裔、美洲印第安人或阿拉斯加原住民、亚洲人、夏威夷原住民/其他太平洋岛民、黑人或非裔美国人、白人和多种族）。

我正在尝试在 R 中编写一个函数，该函数将为传递给它的一组参数生成人口统计事实表。我希望函数的输出产生如下所示的提示：

通过代数I的高中生

注意：这仅包含与上述示例数据片段中的虚拟值无关的虚拟值。我缩短了列名以节省屏幕上的空间。

这是我到目前为止拥有的代码：

data <- dbGetQuery('secrets')
highSchool = c('09', '10', '11', '12')
passingOnly <- quo(OUTCOME == 'Pass')
algebra1 <- quo(COURSE_CODE == '02052')
ethnicCategories <- factor(c(
                              'Hispanic or Latino', 
                              'American Indian or Alaska Native',
                              'Asian',
                              'Native Hawaiian/Other Pacific Islander',
                              'Black or African American',
                              'White',
                              'Multiracial'
                            ))
genderCategories <- factor(c('Female', 'Male', 'Nonbinary'))

demographicBreakout <- function(filterConditions, gradeLevels) {
      data %>%
      filter( {{ filterConditions }} ) %>%
      filter(GRADE_LVL %in% gradeLevels) %>%
      select(STUDENT_GENDER, ETHNIC_DESC) %>%
      group_by(STUDENT_GENDER, ETHNIC_DESC) %>%
      summarise(COUNT = n()) %>%
      pivot_wider(
        names_from = ETHNIC_DESC, 
        values_from = COUNT, 
        values_fill = 0
      ) %>%
      rename_at("STUDENT_GENDER", ~"Gender")
}

report <- demographicBreakout(
          filterConditions = !!quo(!!algebra1 & !!passingOnly),
          gradeLevels = highSchool
      )

此代码生成如下所示的提示：

到目前为止，这看起来不错，但即使计数为 0，我也需要在表中显示所有人口统计类别。我尝试在 and 语句之间将以下代码片段添加到我的函数中：demographicBreakoutsummarizepivot_wider

      complete(
        ETHNIC_DESC = ethnicCategories,
        STUDENT_GENDER = genderCategories, 
        fill = list(COUNT = 0)
      ) %>%

添加此代码会导致以下错误：

Error in `reframe()`:
ℹ In argument: `complete(data = pick(everything()), ..., fill = fill, explicit = explicit)`.
ℹ In group 1: `STUDENT_GENDER = Female`.
Caused by error in `dplyr::full_join()`:
! Join columns in `y` must be present in the data.
✖ Problem with `STUDENT_GENDER`.

我无法解决此错误。除了此语句之外，我还需要在行上运行类似操作，以便显示计数。最重要的是，我仍然需要添加行和列总数。complete()nonbinary

任何帮助克服我目前的障碍将不胜感激。