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

Question

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

我正在处理一个数据集，其中包含变量“color”的两个选项，然后两个用于“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

我们可以使用.clickable:only-child, .clickable:nth-last-child(2):first-child, .clickable:nth-last-child(2):first-child ~ .clickable { background: none; } 删除未使用的级别

droplevels

然后执行blue <- droplevels(blue)

table