如何为ggplot2的geom_tile热力图添加网格边框提升可读性？

问题背景 #

使用ggplot2绘制展示Lure与Species两个因子组合频率的geom_tile热力图，但因因子数量过多导致图表难以解读，希望通过添加网格边框提升清晰度。数据结构如下：

> str(data_df2)
'data.frame':   6111 obs. of  3 variables:
 $ Lure     : chr  "Acrolepiopsis assectella" "Adoxophyes orana" "Apamea oblonga" "Archips rosana" ...
 $ Species  : Factor w/ 97 levels "Zeiraphera isertana",..: 97 97 97 97 97 97 97 97 97 97 ...
 $ Frequency: int  0 0 0 0 0 0 0 0 0 0 ...

当前绘图代码：

ggplot_obj2 <- ggplot(data = data_df2, aes(x = Lure, y = Species)) +
  geom_tile(aes(fill = Frequency)) +
  scale_fill_gradient(low = "gray90", high = "green4") +
  labs(x = "Lure", y = "Species", fill = "Frequency") +
  theme_bw() +
  theme(axis.text.x = element_text(angle = 90, hjust = 1),
        axis.text.y = element_text(size = 6),
        legend.text = element_text(size = 8))

# Convert to plotly object
plotly_obj2 <- ggplotly(ggplot_obj2)    
plotly_obj2

解决方案 #

方法1：直接给geom_tile添加边框 #

geom_tile原生支持color和size参数，可直接为每个色块设置边框，是最简便的方式：

ggplot_obj2 <- ggplot(data = data_df2, aes(x = Lure, y = Species)) +
  geom_tile(aes(fill = Frequency), color = "white", size = 0.2) + # 添加边框颜色与粗细
  scale_fill_gradient(low = "gray90", high = "green4") +
  labs(x = "Lure", y = "Species", fill = "Frequency") +
  theme_bw() +
  theme(axis.text.x = element_text(angle = 90, hjust = 1),
        axis.text.y = element_text(size = 6),
        legend.text = element_text(size = 8))

• color选白色或浅灰色，能与热力图色块形成清晰区分；
• size设为0.2左右，避免边框过粗挤占图表空间。

方法2：手动绘制网格线（灵活控制方向） #

如果需要单独控制横向/纵向网格，可使用geom_hline和geom_vline，通过计算因子位置绘制精准网格：

ggplot_obj2 <- ggplot(data = data_df2, aes(x = Lure, y = Species)) +
  geom_tile(aes(fill = Frequency)) +
  # 绘制横向网格线
  geom_hline(yintercept = seq(0.5, length(levels(data_df2$Species)) + 0.5, 1), 
             color = "white", size = 0.2) +
  # 绘制纵向网格线
  geom_vline(xintercept = seq(0.5, length(unique(data_df2$Lure)) + 0.5, 1), 
             color = "white", size = 0.2) +
  scale_fill_gradient(low = "gray90", high = "green4") +
  labs(x = "Lure", y = "Species", fill = "Frequency") +
  theme_bw() +
  theme(axis.text.x = element_text(angle = 90, hjust = 1),
        axis.text.y = element_text(size = 6),
        legend.text = element_text(size = 8))

注：seq(0.5, n+0.5, 1)是因为ggplot中因子的位置从1到n，网格线需落在两个色块中间，以此确定起止点。

方法3：调整主题背景网格（仅辅助作用） #

若只需强化背景网格，可修改theme参数，但此网格会被色块部分覆盖，仅适合对清晰度要求不高的场景：

ggplot_obj2 <- ggplot(data = data_df2, aes(x = Lure, y = Species)) +
  geom_tile(aes(fill = Frequency)) +
  scale_fill_gradient(low = "gray90", high = "green4") +
  labs(x = "Lure", y = "Species", fill = "Frequency") +
  theme_bw() +
  theme(axis.text.x = element_text(angle = 90, hjust = 1),
        axis.text.y = element_text(size = 6),
        legend.text = element_text(size = 8),
        # 调整背景网格样式
        panel.grid.major = element_line(color = "white", size = 0.2),
        panel.grid.minor = element_blank())

Plotly转换兼容性说明 #

• 方法1的geom_tile边框可直接被plotly识别，转换后效果一致；
• 方法2的网格线也能正常转换，保持颜色与粗细设置即可；
• 方法3的主题网格在plotly中同样生效，但仍存在被色块覆盖的问题。

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