두 가지 범주 형 변수의 R 막대 그래프

Question

데이터 프레임이 있는데 두 개의 범주 형 변수 유형 및 위치 유형 간 관계에 관심이 있습니다. 유형은 5 개 수준이고 위치는 20 개 수준입니다.

각 위치의 유형 백분율을 플롯하려고합니다. ggplot2을 사용하여 간결한 방법이 있는지 알고 싶습니까? 더 구체적인 예 :

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 

x 축에서 변수 내 경우

는 그래서는 공간 문제로 실행하고 20 레벨을 가지고, 어떤 도움

편집

을 감상 할 수있다

나는 각 음료의 성별 현명한 백분율을 그려보고 싶다. 예 : 차가 2 개이고 남성 1 개가 여성이므로 남성 %는 66.67, 여성 백분율은 33.33 이다. 그러므로 x 축에서 거기 차 y = 66.67의 두 개의 수컷과 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()