ggplot：棒グラフにパーセンテージを追加

Question

与えられたカテゴリに該当する割合を示す棒グラフを作成します。私は調査データを考え、A、B、Cに回答した人の数を示し、データを変更することなくこれを実行します。

サンプルコード：

data(mtcars) 
ggplot(data=mtcars, aes(hp))+ 
    geom_bar(aes(y = (..count..)/sum(..count..)), binwidth = 25) + 
    scale_y_continuous(labels=percent) 

が今どのように私は割合ラベルを追加するには？私は、さまざまなアプローチを試してみたが、人々が投稿したことの多くを見たが、運がなかった。

Answer 1

一つの方法：あなたはgeom="text"でstat_binを使用することができます。

data(mtcars) 
ggplot(data=mtcars, aes(hp))+ 
    geom_histogram(aes(y = (..count..)/sum(..count..)), binwidth = 25) + 
    stat_bin(aes(y = (..count..)/sum(..count..), 
       label=scales::percent((..count..)/sum(..count..))), 
      geom="text", binwidth = 25, vjust=-.2)