ggplot2：geom_barを使って正しい比率をプロットする

Question

geom_barとposition = "dodge"を使用してダイヤモンドの割合をプロットしようとしています。ここに私がしたことがあります。

下記の画像は、cutタイプごとにいくつのダイヤモンドがあるかを示しています。

今度は、空想何かをしましょう。

ggplot(data = diamonds) + geom_bar(mapping = aes(x = cut, fill = clarity), position = "dodge") 

下画像は、各cutタイプに対してclarityによってダイヤモンドをグループ化することによってのカウントを提供します。私がやりたい何

は、上記の代わりに、カウントの割合を示すと同じかわすプロットを取得することです。

たとえば、cut=idealおよびclarity = VS2の場合、割合は5071/21551 = 0.23である必要があります。

Answer 1

あなたは

library(tidyverse) 
diamonds %>% 
    count(cut, clarity) %>% 
    group_by(cut) %>% 
    mutate(Sum=sum(n)) %>% 
    mutate(proportion = n/Sum) %>% 
    ggplot(aes(y=proportion, x=cut,fill=clarity)) + 
    geom_col(position = "dodge") 

Answer 2

は（「割合」という名前の）正しい割合でカラムを作成し、マウリッツエバースが示唆するようにあなたはまた、比率をインラインで計算することができ

require(ggplot2) 
require(scales) 

ggplot(data = diamonds) + 
geom_bar(mapping = aes(x = cut, y = percentage, fill = clarity), position = "dodge") + 
scale_y_continuous(labels = scales::percent) 

を使用しています。