#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')