Как закрасить часть гистограммы, отличную от другой части, основываясь на предельном значении?

Question

Я пытаюсь визуализировать (а) распределение переменной, а также (б) пропорцию одного значения этой переменной по сравнению с другими.

В приведенном ниже примере я хочу составить гистограмму показателей здоровья 1–5 и оставить участки «1–3» и «5» серым, а часть «4» - ярким.

Как я мог это сделать?

Я использую пакеты tidyverse, plyr и skimr и работаю в RStudio с данными cd c.

Спасибо!

recode <- mapvalues(cdc$genhlth, from = c("excellent", "very good", "good", "fair", "poor"), to = c("5", "4", "3", "2", "1"))

ggplot(cdc, aes(recode) +
geom_histogram() +
  ggtitle("Distribution of General Health & Proportion of Very Good Health") 
# then go back in here later and color the 4's

Answer 1

Взлом, если это указан случай c мог бы добавить второй слой с geom_col(x=4,y=count at 4) такой же ширины, как у geom_histogram