为什么我的dplyr语句会创建额外的行？

Question

我希望'temp'输出40行，其中包括1-20岁的男性和1-20岁的女性。相反，它先创建40行，然后复制并附加它们，从而导致“ temp”为80行。

为什么要这样做，如何停止呢？我知道自己可以删除第41-80行，但这在处理大型数据集时很麻烦。

library(dplyr)
library(tidyr)

gender <- sample(c("male","female"), 100, replace = T)
age <- sample(1:20, , replace = T)

df <- data.frame(gender, age)

temp <- df %>% group_by(gender, age) %>%
  summarise(count = n()) %>%
  complete(gender = c("male", "female"), age = 1:20, fill = list(count = 0))