r - 是否有 group_by 和组合的 R 代码

Question

我很乐意寻找可以计算每组总数中 2 个组合的 R 代码。

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())
    

我的输出应该是

 id<-c(1,2,3)
    n<-c(4,4,4)
    ncomb2<-c(6,6,6)
    

谢谢

Answer 1

我不确定下面的代码是否是您所追求的

out1 <- ds %>%
    group_by(id) %>%
    summarise(n = n()) %>%
    mutate(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