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

私はトリミングされてから、最後のx軸ラベル'Mazda RX4 Wag'を回避しながら、expand = c(0, 0)と灰色のプロットエリア内の余分な領域を除去します。どうすればこれを達成できますか？

Answer 1

この点についてはどうですか？

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