Мне нужно исключить опцию «предпочитаю не отвечать» на моем графике, поскольку никто не использовал этот ответ.
Я попытался поместить информацию без какой-либо удачи.
кодирование для текущего графика, включая ответ:
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"))
Я бы хотел, чтобыбоковой график для 3 из 4 вариантов гендерного ответа.
Текущий гистограмма
