如何在ggplot2中为不同绘图设置相同尺寸的geom_tile瓷砖

要让不同数据集生成的geom_tile保持相同物理尺寸，核心是根据每个数据集的x/y类别数量动态调整绘图的物理宽高，同时消除绘图区域的空白，具体实现如下：

核心思路 #

1. 预先定义单个tile的目标物理尺寸（如1cm×1cm）
2. 针对每个数据集，统计x/y轴的唯一类别数量，计算出绘图总宽高（类别数 × tile尺寸）
3. 移除坐标轴周围的空白，确保tile完全填满绘图区域
4. 固定geom_tile的相对宽高为1（适配因子型变量的间隔）

代码示例 #

library(ggplot2)

# 定义单个tile的物理尺寸（单位：cm）
tile_w <- 1
tile_h <- 1

# ----------------------
# 处理第一个数据集
# ----------------------
df <- data.frame(
  x = factor(rep(c(2, 5, 7, 9, 12), 2)),
  y = rep(c(1, 2), each = 5),
  z = factor(rep(1:5, each = 2))
)

# 计算绘图总尺寸
plot_w <- length(unique(df$x)) * tile_w
plot_h <- length(unique(df$y)) * tile_h

# 绘制图形
p1 <- ggplot(df, aes(x, y)) +
  geom_tile(aes(fill = z), colour = "grey50", width = 1, height = 1) +
  # 去掉坐标轴空白，让tile紧贴边缘
  scale_x_discrete(expand = c(0, 0)) +
  scale_y_discrete(expand = c(0, 0))

# 直接在RStudio中显示
dev.new(width = plot_w, height = plot_h, unit = "cm")
print(p1)

# ----------------------
# 处理第二个数据集
# ----------------------
df2 <- df[1:3,]

# 计算该数据集的绘图尺寸
plot_w2 <- length(unique(df2$x)) * tile_w
plot_h2 <- length(unique(df2$y)) * tile_h

p2 <- ggplot(df2, aes(x, y)) +
  geom_tile(aes(fill = z), colour = "grey50", width = 1, height = 1) +
  scale_x_discrete(expand = c(0, 0)) +
  scale_y_discrete(expand = c(0, 0))

# 直接在RStudio中显示
dev.new(width = plot_w2, height = plot_h2, unit = "cm")
print(p2)

关键细节说明 #

• scale_x_discrete(expand = c(0,0))和scale_y_discrete(expand = c(0,0))是必要步骤，否则绘图区域会保留额外空白，导致tile实际尺寸缩水
• 如果需要保存图片，直接用ggsave指定计算好的宽高即可：

  ggsave("plot1.png", p1, width = plot_w, height = plot_h, units = "cm", dpi = 300)
  

• 无论直接显示还是保存，只要严格按照「类别数×tile尺寸」设置绘图宽高，就能保证所有图中的tile物理大小完全一致

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