Метки процентов не отображаются над гистограммой

Question

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

Я использовал код:

p1 <- ggplot(mtcars, aes(x= cyl)) + 
      geom_bar(aes(fill = vs), stat = "count") + 
      geom_text(aes(label = scales::percent(..prop..), y= ..prop..), stat = "count", vjust = -0.5) +  
      theme_classic() + ylab("Count") + facet_grid(vs ~ .)

, который дает

Обратите внимание, что я хочу вести счет по оси Y.

Answer 1

Мы можем использовать ymax и vjust:

library(ggplot2)
ggplot(mtcars, aes(x= cyl)) + 
geom_bar(aes(fill = vs), stat = "count") + 
geom_text(aes(ymax= ..prop.., label = scales::percent(..prop..)), stat = "count", vjust = -.1) + 
theme_classic() + 
ylab("Count") + 
facet_grid(vs ~ .)