Table R function - how to remove 0 counters?

Question

I need to remove rows from the output of a table function that have 0 counters in all columns. Is there an easy way to do this?

table(ds$animal,ds$gender) ___ | M | F Cat | 9 | 4 Dog | 0 | 0 Rat | 4 | 3 

I just would like to see these lines:

 ___ | M | F Cat | 9 | 4 Rat | 4 | 3 

Answer 1

you need to reset levels from the animal factor.

 table(droplevels(ds$animal),ds$gender) 

you can also just delete them from ds and then make a table

 ds$anima <- droplevels(ds$animal) with(ds, table(animal,gender)) 

I used here because it prints the headers.