R 如何抑制x轴的扩展并防止剪切轴标签？

例如，请参见下图：

library(ggplot2)

df <- head(mtcars, 4)

df$rn <- rownames(df)

#>                 mpg cyl disp  hp drat    wt  qsec vs am gear carb
#> Mazda RX4      21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
#> Mazda RX4 Wag  21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
#> Datsun 710     22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
#> Hornet 4 Drive 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1
#>                            rn
#> Mazda RX4           Mazda RX4
#> Mazda RX4 Wag   Mazda RX4 Wag
#> Datsun 710         Datsun 710
#> Hornet 4 Drive Hornet 4 Drive

ggplot(df, aes(x = rn, y = mpg)) +
    geom_point() +
    scale_x_discrete(expand = c(0, 0))

库（ggplot2）
东风马自达RX4 21.0 6 160 110 3.90 2.620 16.46 0 1 4
#>马自达RX4 Wag 21.0 6 160 110 3.90 2.875 17.02 0 1 4
#>Datsun 710 22.8 4 108 93 3.85 2.320 18.61 1 4 1
#>大黄蜂4路21.46258110 3.083.21519.441031
#>注册护士
#>马自达RX4马自达RX4
#>马自达RX4 Wag马自达RX4 Wag
#>达特桑710达特桑710
#>大黄蜂4号公路大黄蜂4号公路
ggplot（df，aes（x=rn，y=mpg））+
几何点（）+
比例x离散（扩展=c（0，0））

我想用

expand=c（0，0）

删除灰色打印区域中的额外区域，同时避免裁剪最后一个x轴标签

“Mazda RX4 Wag”

。我怎样才能做到这一点呢？

这个怎么样

ggplot(df, aes(x = rn, y = mpg)) +
  geom_point() +
  scale_x_discrete(expand = c(0, 0))+
  coord_fixed(ratio = 1/0.40)

---

@甜菜根，谢谢你的链接。这真的是我想要的。我将删除这篇文章。@Axeman，在这里留下一个重复的问题好吗？我真的不知道哪种方式更合适。我从这里找到了答案：是的，你可以留下重复的问题，因为它们是目标帖子的标志。谢谢

coord_fixed

对我来说是一个新功能。但我更喜欢这个解决方案，而不是更灵活的关联问题。