Участок перекрестной информации

Question

У меня есть фрейм данных likes:

    Gender   Like  
    male     yes    
    female   no  
    female   yes
    other    yes
    male     no
    male     no
    female   no  
    female   yes
    other    no
    male     no
    male     yes

На основе этого фрейма данных я хотел бы нарисовать гистограмму, которая определяет каждый пол и число «да» и «нет» для каждого пола (см. рисунок)

Если я использую table(likes), я получаю таблицу, в которой указано число «да» и «нет» для каждого пола.Однако, если я использую plot(table(likes)), я получаю действительно странный сюжет, который трудно интерпретировать.

Что я могу сделать, чтобы получить такой вывод?

Answer 1

Вы можете сделать что-то вроде этого -

ggplot(data = dt) +
  aes(x = Gender, fill = Like) +
  geom_bar(position = "dodge") +
  scale_fill_brewer(palette = "YlGnBu") +
  theme_minimal() +   
  geom_text(aes(label=..count..),stat='count',position=position_dodge(0.9))

Вывод -

Если вы хотите Like в качестве вашегоlabels затем используйте это-

ggplot(data = dt) +
  aes(x = Gender, fill = Like) +
  geom_bar(position = "dodge") +
  scale_fill_brewer(palette = "YlGnBu") +
  theme_minimal() +   
  geom_text(aes(label=paste(Like)),stat='count',position=position_dodge(0.9))

Выход 2-