ggplot2中geom_tile分面+不同轴刻度导致图像出现条纹问题

问题原因 #

当对分面数据的x轴（或y轴）做刻度缩放后，ggplot2的geom_tile()会基于全局刻度范围统一计算所有面板的tile宽度/高度，导致缩放后的面板中tile无法紧密排列，出现条纹间隙。即使设置scales="free"，这个全局计算逻辑依然存在；而单独绘制单面板数据时无此问题，因为此时是基于单面板刻度计算tile尺寸。

解决方法 #

方法1：用geom_rect()替代geom_tile() #

geom_rect()可以手动指定每个tile的边界坐标，让每个分面的tile尺寸独立于全局刻度，完美适配缩放后的轴刻度。

代码示例

library(ggplot2)
library(reshape2)

# 处理火山数据并添加分面索引
volcano_melt <- melt(volcano)
volcano_melt$idx <- ifelse(volcano_melt$Var2 < 30, 1, 2)
# 缩放x轴刻度
volcano_melt$Var1_scaled <- volcano_melt$Var1 / volcano_melt$idx

# 计算每个tile的上下左右边界：x方向的半宽对应缩放比例
volcano_melt <- transform(volcano_melt,
  xmin = Var1_scaled - 0.5 / idx,
  xmax = Var1_scaled + 0.5 / idx,
  ymin = Var2 - 0.5,
  ymax = Var2 + 0.5
)

# 绘制无条纹的分面热图
ggplot(volcano_melt) +
  geom_rect(aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax, fill = value)) +
  facet_wrap(~idx, scales = "free_x") +
  scale_x_continuous(breaks = unique(volcano_melt$Var1_scaled)) +
  labs(x = "Var1 (scaled)", y = "Var2", fill = "Elevation")

方法2：使用ggh4x包的独立分面功能 #

如果可以引入第三方包，ggh4x::facet_wrap2()提供的independent=TRUE参数，能让每个面板独立计算geom的尺寸，无需手动调整坐标：

library(ggh4x)

# 用geom_tile配合facet_wrap2的独立分面
ggplot(volcano_melt, aes(x = Var1_scaled, y = Var2, fill = value)) +
  geom_tile() +
  facet_wrap2(~idx, scales = "free_x", independent = TRUE)

验证说明 #

两种方法都能让每个分面的tile紧密排列，消除条纹。其中方法1无需额外依赖包，兼容性更强；方法2更简洁，适合已经使用ggh4x的场景。

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