分组和组合是否有R代码

我很高兴地寻找R代码，可以计算的组合与2，在每个组的总数

library(dplyr)
    id<-c(1,1,1,1,2,2,2,2,3,3,3,3)
    sex<-c(1,1,1,1,1,1,1,1,1,1,1,1)
    ds<-data.frame(id,sex)
    out1<-ds %>% group_by(id) %>% summarise(n=n())
    

库（dplyr）
id我不确定下面的代码是否是您想要的

out1 <- ds %>%
    group_by(id) %>%
    summarise(n = n()) %>%
    mutate(ncomb2 = choose(n,2))

out1%
分组依据（id）%>%
总结（n=n（））%>%
变异（ncomb2=choose（n，2））

以致

> out1
# A tibble: 3 x 3
     id     n ncomb2
  <dbl> <int>  <dbl>
1     1     4      6
2     2     4      6
3     3     4      6

>out1
#一个tibble:3x3
id n ncomb2
1     1     4      6
2     2     4      6
3     3     4      6
我不理解你的任务背后的逻辑。你能更详细地解释一下吗？请重写这个问题，因为“计算每组总数的组合”是不明确的，罗伯特，我编辑了Dear martin，任务是按ID计算每组的总数，我已经这样做了，我现在想要每个总数的2个组合。你能解释为什么n_comb_id1_和_2=6的逻辑吗？
> out1
# A tibble: 3 x 3
     id     n ncomb2
  <dbl> <int>  <dbl>
1     1     4      6
2     2     4      6
3     3     4      6