如何汇总因子列R之间的相等行数？

Question

我遵循了数据示例

df <- tibble(var1 = factor(c("a", "a", "a", "b", "b", "c", "c", "c")),
         var2 = factor(c("a", "b", "b", "c", "c", "c", "d", "d")))

我想将这些数据总结为 tibble 格式的一行和三列 (1X3)。其中第一列显示相似行值的计数，第二列显示不同行值的计数，第三列显示值的总和，最终格式为：

final <- tibble(equal = 2, different = 6, total = 8)

谢谢大家

Answer 1

你可以使用

library(dplyr)
df %>% 
  summarise(equal = sum(as.numeric(var1) == as.numeric(var2)),
            different = sum(as.numeric(var1) != as.numeric(var2)),
            total = n())

返回

# A tibble: 1 x 3
  equal different total
  <int>     <int> <int>
1     2         6     8