Гистограмма, показывающая долю баров и ресторанов, купивших красную смесь

#r #bar-chart

Вопрос:

Я пытаюсь создать гистограмму, которая показывает долю ресторанов и долю баров, которые купили красную смесь.

Я пробовал этот код:

ggplot(PCsUnlimited) stat_summary(aes(x = region, y = totdol), fun = "mean", geom = "bar") ylab("Avg. total dollars spent")

Я считаю, что используемая функция неверна, но я не уверен, как я могу заставить гистограмму складывать числовые значения в столбце red_blend.

Комментарии:

1. Не могли бы вы добавить результат dput(head(PCsUnlimited,10)) редактирования вашего вопроса?

Ответ №1:

Без каких-либо данных и не столь четкого желаемого результата мы можем начать отсюда:

 library(dplyr)
library(ggplot2)
PCsUnlimited %>%
  group_by(customer_type) %>%
  summarise( perc_red_blend = round(n_distinct(customer_id[red_blend > 0])/n_distint(customer_id)*100,2)) %>%
  ggplot(aes(x = customer_type, y = perc_red_blend))   
  geom_bar(stat = 'identity')