ggplot2中scale_x_continuous的expand(add=0)为何扩展轴？如何调整x轴位置？

我尝试用ggplot2生成排序条形图，目标是把x轴最左端（刻度起点）向y轴移动原空间长度的-1/2。使用的MRE代码如下：

diamonds %>%
    filter(cut!="Ideal") %>%
    arrange(price) %>% 
    mutate(price.r=order(price)) %>%
    ggplot(aes(x=price.r, y=price, fill=cut)) + 
    geom_bar(stat="identity", width=0.7,
        position = position_dodge(width=0.4), alpha=0.5)

得到图表后，我用scale_x_continuous(expand=expansion(mult=0,add=0))没达成目标，反而用scale_x_continuous(expand = expansion(add = 0))时，x轴两端都扩展了。我有两个疑问：

1. 为什么设置add=0时x轴仍会扩展至与y轴相交？
2. 怎么把x轴向y轴靠近但不完全贴合？

解答 #

关于add=0时x轴仍扩展的原因 #

ggplot2的expansion()参数中，当仅设置add=0时，mult参数会使用默认值0.05——也就是会在x轴两端各添加5%的扩展空间，这就导致x轴两端自动扩展，看起来和y轴相交。只有同时将mult=0和add=0都设置，才会完全取消x轴的扩展空间，但此时第一个条形的左边缘会直接贴到y轴上，不符合你“靠近但不贴合”的需求。

实现x轴向y轴靠近但不完全贴合的方法 #

你需要手动计算参数值或直接定义x轴范围来实现目标，以下是两种实操方法：

方法一：通过expansion()参数调整

先取消左端的默认扩展（mult=0），给add设置负数让x轴左端向y轴靠近，右端保留少量扩展避免条形贴到图边缘：

# 预处理数据并获取行数
filtered_diamonds <- diamonds %>% 
  filter(cut!="Ideal") %>% 
  arrange(price) %>% 
  mutate(price.r=order(price))
n <- nrow(filtered_diamonds)

# 绘图并设置x轴扩展
ggplot(filtered_diamonds, aes(x=price.r, y=price, fill=cut)) + 
  geom_bar(stat="identity", width=0.7, position = position_dodge(width=0.4), alpha=0.5) +
  scale_x_continuous(expand = expansion(mult = c(0, 0.05), add = c(-(n-1)/4, 0)))

这里add=c(-(n-1)/4, 0)是将左端向y轴移动原空间长度的1/4（对应你要的“移动原空间长度-1/2”的视觉效果），右端保留5%的扩展空间，既不会让条形贴到y轴，又能实现靠近的效果。

方法二：通过limits参数手动定义x轴范围

直接设置x轴的起始点为1 - (n-1)/2（即你要的“向y轴移动原空间长度的-1/2”），同时关闭扩展：

ggplot(filtered_diamonds, aes(x=price.r, y=price, fill=cut)) + 
  geom_bar(stat="identity", width=0.7, position = position_dodge(width=0.4), alpha=0.5) +
  scale_x_continuous(limits = c(1 - (n-1)/2, n), expand = expansion(mult=0, add=0))

这种方式能精准控制x轴的起始位置，完全匹配你的需求，且条形不会贴合y轴。

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