从由R中的子集数据组成的列联表中排除0s

Question

我是堆栈溢出的新手，如果您需要更多信息，请告诉我。

我正在处理一个数据集，该数据集包含变量"color"的两个选项，然后每个选项包含"shade"两个选项。我将数据细分为：

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

这似乎有效，当我输入"蓝色"时，只剩下颜色"B"和阴影"天空"one_answers"海军蓝"

然后我想从这个子集创建一个列联表，我这样做了：

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)