ggplot2设置图例居顶时X轴末端标签被截断的解决问询

当把图例移到顶部后，绘图区域底部空间被压缩，再加上你设置了scale_x_continuous(expand = c(0,0))完全去掉了X轴留白，就会导致末端标签被截断。给你几个简单的解决办法：

方法1：给X轴添加少量留白 #

直接修改scale_x_continuous的expand参数，不要完全设为c(0,0)，给末端加一点点留白即可，改动最小最简便：

scale_x_continuous(
  limits=c(0,25), 
  breaks=c(seq(0, 25, by=5)), 
  labels=c(seq(0,25, by=5)), 
  expand = c(0, 0.5) # 给X轴末端添加少量留白
)

方法2：调整绘图底部边距 #

如果需要严格保持X轴从0到25无额外延伸，就在theme()里添加plot.margin参数，给底部留出足够空间显示标签：

theme(
  # 保留你原有的其他theme参数...
  legend.position = "top",
  plot.margin = margin(t = 5, r = 5, b = 15, l = 5, unit = "pt") # 增大底部边距
)

t/r/b/l分别对应上/右/下/左的边距，你可以根据标签大小调整b（底部）的数值。

方法3：调整X轴标签对齐方式（可选） #

如果标签本身偏长，还可以让标签右对齐或倾斜，避免被截断：

theme(
  # 保留你原有的其他theme参数...
  axis.text.x = element_text(size = 16, hjust = 1) # 右对齐标签
)
# 或者倾斜标签
axis.text.x = element_text(size = 16, angle = 45, hjust = 1)

推荐优先用方法1，改动小且效果稳定；如果必须严格控制X轴范围，就选方法2。

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