гистограмма ggplot с% и процентами * ярлыки *

Question

Я хочу использовать ggplot для создания гистограммы с использованием процентов. Я нашел this answer, который доставит мне часть пути.

Однако я также хочу разместить метку в верхней части каждой строки гистограммы, показывая фактический процент.

Вот мой код и ссылка на выход:

p <- ggplot(mtcars, aes(x = hp)) + 
     geom_bar(aes(y = (..count..)/sum(..count..)), binwidth = 25) + 
     ## scale_y_continuous(labels = percent_format()) #version 3.0.9 
     scale_y_continuous(labels = percent) #version 3.1.0 
p <- p + stat_bin(aes(label=round((..count..)/sum(..count..),2)), geom="text", size=4) 
plot(p) 

Здесь выход:

К сожалению, вы можете видеть, что метки данных размещены на не-процентных местах и бары «раскалываются» вниз.

Есть ли способ изменить параметры stat_bin так, чтобы текстовые ярлыки отображались внутри или сразу поверх процентных баров (чтобы мои бары не были разрезаны)?

Спасибо!

Answer 1

Вы хотите просто установить y значения для наклеек, а также (а также убедитесь, что вы используете одни и те же бункеры вы для баров)

library(scales) 
p <- ggplot(mtcars, aes(x = hp)) + 
     geom_bar(aes(y = (..count..)/sum(..count..)), binwidth = 25) + 
     scale_y_continuous(labels = percent_format()) #version 3.0.9 
     ##scale_y_continuous(labels = percent) #version 3.1.0 
p <- p + stat_bin(aes(y=(..count..)/sum(..count..), 
    label=round((..count..)/sum(..count..),2)), 
    geom="text", size=4, binwidth = 25, vjust=-1.5) 
plot(p)