从R中的子集数据生成的列联表中排除0

Question

我是个堆栈溢出新手，所以如果你需要更多信息，请让我知道。

我正在处理一个数据集，其中包含变量"colour“的两个选项，然后分别包含"shade”的两个选项。我将数据子集如下：

blue <- subset(data1, colour=="B")

这似乎起作用了，当我输入“蓝色”时，只剩下颜色"B“和阴影”天空“和”海军蓝“。

然后，我想从这个子集创建一个列联表，如下所示：

table1 <-table(blue$shade, blue$Response)

其中，响应是Y/N。

然而，在这一点上，我遇到了问题，因为红色阴影在我的列联表中重新出现了0

               Y    N
Sky            35   8
Navy           36   12
Scarlet        0    0
Maroon         0    0

除了“修复”表和手动删除相关部分之外，有人能建议如何删除这0个值吗？

非常感谢

Answer 1

我们可以使用droplevels删除未使用的级别

blue <- droplevels(blue)

然后执行table

table(blue$shade, blue$Response)