如何移除ggplot2长图首尾的空白区域？

你遇到的首尾大量空白主要来自两个核心原因：一是scale_x_continuous(breaks=mydata$time)强制为每个时间点添加刻度，ggplot会自动在x轴两端预留额外空间；二是默认主题和PDF输出设备的默认边距设置。以下是几种针对性的解决方法：

1. 让x轴严格贴合数据范围 #

在scale_x_continuous中添加expand = c(0, 0)参数，彻底移除x轴两端的预留空白，让轴的范围完全匹配数据的最小和最大值：

mydata <- data.frame(time=1:1000, value=rnorm(1000, mean=10, sd=2))
P <- ggplot2::ggplot(mydata, ggplot2::aes(x=time, y=value)) +
  ggplot2::geom_line(linewidth=0.5) +
  ggplot2::scale_x_continuous(breaks=mydata$time, expand = c(0, 0)) +  # 关键参数
  ggplot2::theme_light()

2. 移除绘图区域的主题边距 #

默认主题会在绘图区域四周保留一定边距，可以通过theme()调整plot.margin将其设为0：

P <- ggplot2::ggplot(mydata, ggplot2::aes(x=time, y=value)) +
  ggplot2::geom_line(linewidth=0.5) +
  ggplot2::scale_x_continuous(breaks=mydata$time, expand = c(0, 0)) +
  ggplot2::theme_light() +
  ggplot2::theme(plot.margin = ggplot2::margin(0, 0, 0, 0, "pt"))  # 清除边距

3. 用ggsave优化PDF输出 #

基础的pdf()设备对ggplot的边距控制不够灵活，换成ggsave()能更精准地控制输出尺寸，避免额外空白：

ggplot2::ggsave(
  file = "test0.pdf",
  plot = P,
  height = 2,
  width = 200,
  device = "pdf",
  limitsize = FALSE  # 允许超大尺寸输出
)

如果仍有细微空白，可尝试调整scale参数（比如设为1.01或0.99）来微调整体缩放比例。

额外建议：优化刻度显示（可选） #

1000个时间点全部显示刻度会导致刻度严重重叠，既不美观也无实用价值。建议只显示间隔性刻度，比如每50个时间点显示一个：

ggplot2::scale_x_continuous(
  breaks = seq(1, 1000, by = 50),
  expand = c(0, 0)
)

这不仅能减少空白，还能大幅提升图表可读性。

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