Исключение 0s из таблицы непредвиденных ситуаций, сделанных из данных подмножества в R

Question

Я новичок в переполнении стека, поэтому, пожалуйста, дайте мне знать, если вам нужна дополнительная информация.

Я работаю с набором данных, который содержит два варианта переменной «цвет», а затем по два для «тени». Я subsetted данные таким образом:

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

, который, казалось, работали и только цвет «B» и тень «небо» и «флот» остался, когда я напечатал в «синий»

Я тогда хотел создать таблицу аварийных ситуаций из этого подмножества, которое я сделал таким образом:

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

где ответ - это Y/N.

Однако на данный момент я столкнулся с проблемами, как красные оттенки вновь появились с 0s в моей таблице сопряженности

   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)