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

Question

例如，见下图：

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))

我希望使用expand = c(0, 0)删除灰色绘图区域中的额外区域，同时避免裁剪最后的x轴标签'Mazda RX4 Wag'。我怎样才能做到这一点？

Answer 1

这个怎么样？

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