如何用ggplot绘制连续值矩阵并叠加散点（保留背景色）

没问题，我帮你搞定这个需求。这里有个完整的实现代码，既能保留矩阵方格的背景色，又能在指定位置添加足够小的黑点：

# 先加载必需的包
library(ggplot2)
library(reshape2)

# 你的原始矩阵和基础热图代码
ex <- matrix(c(1,2,3,2,3,4,3,4,5), nrow=3)
p <- ggplot(melt(ex), aes(x=Var1, y=Var2, fill=value)) + geom_raster()

# 定义要添加的散点坐标，转成数据框（ggplot更偏好数据框格式）
x <- c(1,3)
y <- c(2,3)
pts <- data.frame(x, y)

# 关键的补充代码：添加小散点
p <- p + 
  geom_point(
    data = pts, 
    aes(x = x, y = y), 
    color = "black", 
    size = 1,  # 调小尺寸确保不遮挡背景色，也可以用0.8之类的更小值
    inherit.aes = FALSE  # 避免继承主图层的fill映射，防止报错
  )

# 可选：调整主题让图表更清晰
p <- p + 
  theme_minimal() + 
  labs(x = "行索引", y = "列索引")

# 输出图表
print(p)

几个关键细节说明： #

• 转成数据框：把cbind生成的矩阵转成数据框，ggplot处理数据框会更顺畅，避免潜在的类型问题
• inherit.aes=FALSE：这个参数很重要，它会阻止散点图层继承主图层的fill=value映射，不然R会因为pts里没有value列而报错
• 散点尺寸控制：size=1已经足够小，既能看清黑点，又不会盖住方格的背景色，你可以根据自己的需求微调这个数值
• 图层顺序：因为geom_raster先绘制背景，geom_point后绘制散点，所以散点会显示在方格上方，视觉上更清晰

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