如何获得R中2列是/否数据的摘要？

Question

假设我有一个这样创建的数据框；

> hangry <- data.frame("Hungry" = c("Yes", "Yes", "No", "Yes", "No", "Yes"), "Angry" = c("No", "Yes", "Yes", "No", "No", "Yes"))
> hangry
  Hungry Angry
1    Yes    No
2    Yes   Yes
3     No   Yes
4    Yes    No
5     No    No
6    Yes   Yes

像这样很容易获得单个列的摘要；

> summary(hangry$Hungry)
 No Yes 
  2   4 

但是我将如何创建两个列的摘要以获取每个组合的计数。例如这样的东西；

> summary(hangry$Hungry combined_with hangry$Angry) #yes I know this is a ridiculous simplification
Yes/Yes  Yes/No  No/Yes  No/No
      2       2       1      1

我想我将需要更复杂的代码，而这些代码不会给我如此精美的摘要。我还假定有很多方法可以实现我想要的。我对R还是相当陌生，并且一直对此感到困惑。

Answer 1

dplyr的聚合函数对于这些类型的摘要非常有用：

library(dplyr)

hangry %>% group_by_all() %>% count()

Answer 2

table（饿了，生气了）应该也能解决问题