如何在ggplot2中让各分组直方图X轴范围自动适配分组最大值

你用facet_wrap绘制各分店到店顾客数的直方图时，所有子图共用同一X轴范围，想要实现每个子图X轴从0到对应分店的顾客数最大值，可以用以下两种方法：

方法一：结合scales="free_x"与自定义轴范围函数 #

直接在facet_wrap中开启X轴自由缩放，再通过scale_x_continuous强制每个子图的X轴下限为0，上限自动取该子图的顾客数最大值：

DF %>%
  ggplot(aes(x = num_customers)) +
  geom_histogram(bins = 40) +
  theme_bw() +
  # 自定义每个子图的X轴范围：下限固定为0，上限为当前子图的num_customers最大值
  scale_x_continuous(limits = function(x) c(0, max(x))) +
  # 允许每个子图独立设置X轴范围
  facet_wrap(~branch, scales = "free_x")

方法二：预处理数据后手动控制范围（可选） #

如果需要更精细的控制，可以先计算每个分店的顾客数最大值，再配合自由缩放参数实现需求：

# 先计算每个分店的最大顾客数
branch_max <- DF %>%
  group_by(branch) %>%
  summarise(max_cust = max(num_customers))

# 合并最大值数据到原数据集
DF_with_max <- DF %>% left_join(branch_max, by = "branch")

# 绘图时开启X轴自由缩放，并用expand确保轴下限到0
DF_with_max %>%
  ggplot(aes(x = num_customers)) +
  geom_histogram(bins = 40) +
  theme_bw() +
  scale_x_continuous(expand = c(0, 0)) +
  facet_wrap(~branch, scales = "free_x")

第一种方法更简洁，直接利用ggplot内置功能实现需求；第二种方法适合需要额外调用最大值做其他处理的场景。

内容的提问来源于stack exchange，提问作者kiwi