解决geom_raster绘制栅格图导出PDF时的尺寸变形问题

1. 用coord_fixed()锁定轴比例 #

geom_raster的asp参数优先级低，真正控制绘图比例的是coord_fixed()，它会根据数据的x/y范围自动匹配合理比例，也可以手动指定ratio参数（比如栅格是8行16列，就设ratio=8/16）。

示例代码：

library(ggplot2)
# 假设你的数据框为df，包含x、y、value三列
ggplot(df, aes(x = x, y = y, fill = value)) +
  geom_raster() +
  coord_fixed()  # 核心：强制x/y轴比例与数据匹配

如果明确知道栅格的实际宽高比，比如要让y轴高度是x轴宽度的1/2，直接设置：

coord_fixed(ratio = 0.5)

2. 导出PDF时指定匹配的宽高尺寸 #

用ggsave()导出时，手动设置width和height，让二者比例和coord_fixed()的比例一致。比如coord_fixed(ratio=0.5)，就设width=10、height=5（单位可选"in"/"cm"）：

ggsave("raster_plot.pdf", plot = last_plot(), width = 10, height = 5, units = "in")

避免用默认宽高，默认值大概率和你的栅格比例不匹配，导致拉伸变形。

3. 移除轴的默认扩展空间 #

ggplot会自动给轴添加留白，可能让栅格看起来比例失调，用expand = c(0,0)去掉留白，让栅格填满绘图区域：

ggplot(df, aes(x = x, y = y, fill = value)) +
  geom_raster() +
  coord_fixed() +
  scale_x_continuous(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0))

4. 检查数据的x/y范围 #

先确认你的x、y轴取值对应栅格的实际行列数，比如x是1到20（对应20列），y是1到10（对应10行）。用range(df$x)和range(df$y)查看范围，避免数据本身的x/y范围失衡导致图形变形。

内容的提问来源于stack exchange，提问作者Sydney Lee Schmitter