两个类别变量的R条形图

Question

我有一个数据框，我对两个类别变量Type和Location之间的关系感兴趣，Type具有5个级别，Location具有20个级别。

我想绘制每个位置的类型百分比。 我想知道是否有使用ggplot2的简洁方法？

就我而言，x轴上的变量有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和y = 33.33的两个柱形。

Answer 1

最简单的方法是进行预处理，因为我们必须按性别分别计算百分比。 我使用complete来确保在data.frame中明确拥有零百分比柱，否则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()