对具有缺失值的数据进行分组

Question

我需要比较两个不同调查 (t1, t2) 的问题。 因此，我有两个如下所示的数据框：

t1     t2

x       x
x       y
y       z
z       w 
y       z 
x       x
z       y
z       w 
w       x
        z 
        v 

此数据需要按 v、w、x、y 和 z 分组。 不幸的是，值 v 不会出现在第一个数据帧中，并且两个数据帧都有不同数量的行，所以我不能将它们放在一个数据帧中。 当我使用“group_by”和“summarise”时，我得到两列，但一列有 4 行，另一列有 5 行。和以前一样，我不能把它们放在一起。

我不想在第一个数据框中添加额外的行，因为我不想操作原始数据集。

最后我需要一个表格，应该如下所示：

        t1      t2

v       0       1
w       1       2
x       3       3
y       2       2
z       3       3 

我希望你能帮助我！ 谢谢！

Answer 1

一种方法是：

library(tidyverse)

bind_rows(
  gather(t1),
  gather(t2)
) %>% {table(.$val, .$key)}

输出：

    t1 t2
  v  0  1
  w  1  2
  x  3  3
  y  2  2
  z  3  3