如何使用ggplot将散点图叠加至已绘制的热图之上？

这事儿其实很简单，ggplot本身就是基于图层叠加的设计，你不需要分别生成两个独立的图再去合并，直接把散点图层加到热图的基础上就可以实现需求。我帮你梳理一下具体步骤和修正后的代码：

核心思路 #

ggplot的图层是按顺序绘制的——后面添加的图层会覆盖在前面的图层之上。因为你的热图和散点图用的是不同数据集（dfo和l_tree），所以需要在散点的geom_point里明确指定数据集，避免ggplot默认使用热图的数据集导致报错。

完整实现代码 #

首先修正你代码里的小问题（热图的aes里fillz应该写成fill = fillz），然后直接叠加散点图层：

# 构建热图基础图层，同时统一坐标范围（和你的散点图保持一致）
lambir_combined <- ggplot(dfo, aes(x = x, y = y, fill = fillz)) +
  # 热图瓷砖层
  geom_tile(color = 'white') +
  # 设置颜色渐变
  scale_fill_gradient(low = 'white', high = 'blue') +
  # 图表标签
  labs(x = 'x', y = 'y', title = 'Lambir Hills', fill = 'Phosphorus') +
  # 统一坐标范围，确保散点和热图显示区域一致
  xlim(c(0, 1040)) +
  ylim(c(0, 500)) +
  # 叠加散点图层，指定散点的数据集和坐标映射
  geom_point(data = l_tree, aes(x = xcoord, y = ycoord), color = 'red')

# 查看最终合并后的图
print(lambir_combined)

关键细节说明 #

1. 指定散点的数据集：因为热图用的是dfo，散点用的是l_tree，必须在geom_point里加上data = l_tree，否则ggplot会默认使用dfo的数据，而dfo里没有xcoord和ycoord列，会直接报错。
2. 统一坐标范围：把xlim和ylim加到整个图的最后（或者热图图层里），确保热图和散点图的显示区域完全匹配，避免出现散点超出热图范围或者热图被截断的情况。
3. 自定义散点样式：如果需要调整散点的大小、透明度，可以在geom_point里加参数，比如size = 2（放大散点）、alpha = 0.7（增加透明度，避免完全遮挡热图）：

   geom_point(data = l_tree, aes(x = xcoord, y = ycoord), color = 'red', size = 2, alpha = 0.7)
   

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