r - 汇总必须分组的多个列 tidyverse

Question

我有一个数据框，其中包含如下所示的数据:

df <- data.frame(
    group1 = c("High","High","High","Low","Low","Low"),
    group2 = c("male","female","male","female","male","female"),
    one = c("yes","yes","yes","yes","no","no"), 
    two = c("no","yes","no","yes","yes","yes"), 
    three = c("yes","no","no","no","yes","yes")
)

我想总结变量 one、two 和 three 中是/否的计数，通常我会通过 df %>% group_by(group1,group2,one) %>% summarise(n()).有什么方法可以汇总所有三列，然后将它们全部绑定(bind)到一个输出 df 中，而无需在每一列上手动执行代码？我试过使用 for 循环，但我无法让 group_by() 识别我给它作为输入的 colname

Answer 1

获取长格式数据并计数:

library(dplyr)
library(tidyr)

df %>% pivot_longer(cols = one:three) %>% count(group1, group2, value)

#  group1 group2 value     n
#  <chr>  <chr>  <chr> <int>
#1 High   female no        1
#2 High   female yes       2
#3 High   male   no        3
#4 High   male   yes       3
#5 Low    female no        2
#6 Low    female yes       4
#7 Low    male   no        1
#8 Low    male   yes       2