2つのカテゴリ変数のR棒グラフ

Question

私はデータフレームを持っています。私は2つのカテゴリ変数の間の関係に興味があります。タイプとロケーション、タイプは5レベル、ロケーションは20レベルです。

それぞれの場所のタイプの割合をプロットする必要があります。 ggplot2を使用して簡潔な方法があるかどうかを知りたいですか？

私の場合はx軸での変数はので、私はまた、任意のヘルプが

EDITいただければ幸いです、スペースの問題に実行しています20個のレベルがあります。 より具体的な例：

df 
    gender beverage 
1 Female  coke 
2 Male  bear 
3 Male  coke 
4 Female  bear 
5 Male  tea 
6 Male  bear 
7 Female water 
8 Female  tea 
9 Female  bear 
10 Male  tea 

を

私はそれぞれの飲み物の性別賢明なパーセントをプロットしたいと思う 例：3人の茶飲み人が男性は2人、女性は1人で男性は66.67人、女性は33.33人になる したがってx軸はそこにお茶y = 66.67の2つの雄の雄で、y = 33.33の雌でなければなりません。

Answer 1

ジェンダー別にパーセンテージを計算する必要があるため、最も簡単な方法は前処理です。私はcompleteを使用して、data.frameに明示的に0パーセントのバーがあることを確認します。そうしないと、ggplotはそのバーを無視し、他の性別のバーを広げます。

library(dplyr) 
library(tidyr) 
df2 <- df %>% 
    group_by(gender, beverage) %>% 
    tally() %>% 
    complete(beverage, fill = list(n = 0)) %>% 
    mutate(percentage = n/sum(n) * 100) 

ggplot(df2, aes(beverage, percentage, fill = gender)) + 
    geom_bar(stat = 'identity', position = 'dodge') + 
    theme_bw() 

あるいは他の方法で回避：

df3 <- df %>% 
    group_by(beverage, gender) %>% 
    tally() %>% 
    complete(gender, fill = list(n = 0)) %>% 
    mutate(percentage = n/sum(n) * 100) 

ggplot(df3, aes(beverage, percentage, fill = gender)) + 
    geom_bar(stat = 'identity', position = 'dodge') + 
    theme_bw()