分组缺少值的数据

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