如何在barpot中省去一排桌子？

Question

由于没有人使用该响应，因此我需要在图形上消除“不愿回答”选项。

我尝试对信息进行细分，没有任何运气。

编码包含该响应的当前图：

gender <- prop.table(table(groupproject$Q2, groupproject$Q13))

gender 

barplot(t(gender), beside = T, names.arg = c("Female", "Male", "Other", "Prefer Not to Answer"), main = "Do Men's or Women's Sports \nReceive More Advertising, \nResponse by Gender", ylab= "Proportion of Respondents", ylim = c(0, .6), col = c("red", "blue", "green"))
legend("topright", legend = c("Don't Know", "Men's", "Women's"), fill = c("red", "blue", "green"))

我想为4个性别反应选项中的3个提供并排图。

当前条形图