如何统一不同x变量数量的ggplot条形图的实际条宽？

你的推测完全正确：ggplot2里的width参数是相对x轴刻度间距的比例值，不是绝对像素宽度。默认生成的图像总宽度一致，但两个图的x轴跨度不同（4个变量的x轴从1到4，跨度3；6个变量的从1到6，跨度5），所以相同相对宽度的条形，实际显示的绝对宽度自然不一样。

下面是几种实用的解决方法：

方法1：按x变量数量动态调整图像宽度 #

这是最直接的方案——让图像宽度随x变量的数量成比例变化，保证每个x刻度的横向间距一致，这样条形的绝对宽度就能统一。

比如设定每个x变量占0.8英寸的宽度，修改你的代码如下：

library(ggplot2)
x_1 = c(1, 2, 3, 4)
y_1 = c(2, 4, 4, 5)
xy1 = data.frame(x = x_1, y = y_1) # 简化数据框创建

x_2 = c(1, 2, 3, 4, 5, 6)
y_2 = c(14, 3, 5, 3, 2, 4)
xy2 = data.frame(x = x_2, y = y_2)

plot_1 = ggplot(data = xy1) + 
    geom_bar(mapping = aes(x = x, y = y), stat = "identity", width = 0.5) 
ggsave('1.png', width = length(xy1$x)*0.8, height = 4) # 按变量数设宽度

plot_2 = ggplot(data = xy2) + 
    geom_bar(mapping = aes(x = x, y = y), stat= "identity", width = 0.5) 
ggsave('2.png', width = length(xy2$x)*0.8, height = 4)

这里length(xy1$x)自动获取x变量的数量，乘以固定的单位宽度（0.8英寸），就能让两个图的x轴刻度间距一致，条形绝对宽度统一。

方法2：统一x轴范围（适合变量有连续性的场景） #

如果两个图的x变量属于同一系列（比如都是1-6的整数），可以强制把两个图的x轴范围设为相同，这样x轴跨度一致，条形宽度自然相同。但这种方法会让第一个图出现空白的x刻度：

plot_1 = ggplot(data = xy1) + 
    geom_bar(mapping = aes(x = x, y = y), stat = "identity", width = 0.5) +
    xlim(1, 6) # 统一x轴范围到1-6
ggsave('1.png', width = 6, height = 4)

plot_2 = ggplot(data = xy2) + 
    geom_bar(mapping = aes(x = x, y = y), stat= "identity", width = 0.5) +
    xlim(1, 6)
ggsave('2.png', width = 6, height = 4)

方法3：固定条形绝对宽度（进阶方案） #

如果需要更精准的绝对宽度控制，可以借助grid包修改ggplot的底层grob对象，但操作相对复杂，一般方法1就足够满足需求。

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