如何使用ggplot绘制带有多个Y轴的柱状图

基础代码修正 #

你当前的代码存在3处可直接修复的基础错误，修正后即可生成符合要求的填充柱状图：

# 注意列名需和数据集完全匹配，带特殊符号的#Users需用反引号包裹
ggplot(data = campaign, mapping = aes(x = Campaign, y = `#Users`, fill = Country)) + 
  geom_bar(stat = "identity")

• 修正了数据集名的拼写错误
• 补充了mapping后的等号，所有列名和数据集的大小写、命名规则保持一致
• 给geom_bar()添加stat = "identity"参数，指定直接用用户数作为柱高，而非默认的频数统计逻辑

额外Y轴添加方案 #

ggplot2的双Y轴本质是第二个Y轴为第一个Y轴的线性映射，你需要先确定第二个Y轴对应的指标，以及该指标和第一个Y轴数值的换算关系。以下为通用实现示例，假设你第二个Y轴要展示各活动的用户占比：

# 先给数据集补充第二个Y轴对应的指标，此处为示例的用户占比
campaign$user_ratio <- campaign$`#Users` / sum(campaign$`#Users`) * 100
# 定义换算系数：将占比数值放大到和用户数数值范围匹配，此处用户数最大为150，占比最大为100，系数取1.5
coef <- 1.5

ggplot(data = campaign) + 
  # 基础柱状图对应第一个Y轴的用户数
  geom_col(aes(x = Campaign, y = `#Users`, fill = Country)) +
  # 第二个指标用折线展示，数值乘以系数适配第一个Y轴的范围
  geom_line(aes(x = Campaign, y = user_ratio * coef, group = 1), color = "red", linewidth = 1) +
  geom_point(aes(x = Campaign, y = user_ratio * coef), color = "red", size = 3) +
  # 生成第二个Y轴，展示换算回原比例的数值
  scale_y_continuous(
    name = "用户数量",
    sec.axis = sec_axis(~./coef, name = "用户占比(%)")
  ) +
  labs(fill = "国家")

• 若第二个Y轴对应其他指标，只需调整换算系数coef的数值，保证第二个指标乘以系数后的数值范围和第一个Y轴的数值范围匹配即可
• 若第二个Y轴也需要对应柱状图，可调整柱的宽度和位置做分组展示，避免重叠

内容的提问来源于stack exchange，提问作者augusto reyna del aguila