如何用R ggplot绘制按重叠点数自定义色阶的热图式散点图？

嗨，作为R和ggplot的新手，你遇到的这两个问题其实都有很直接的解决办法，我来帮你一步步梳理：

1. 设置自定义色阶区间与热图风格配色 #

你需要手动指定..count..（每个六边形bin内的点数）的分箱区间和对应颜色，这里推荐用scale_fill_steps()来实现连续分箱的自定义配色，既直观又符合你要的热图风格：

# 加载ggplot2包
library(ggplot2)

# 绘制自定义配色的六边形密度图
ggplot(newData_cut) +
  geom_hex(aes(x = green, y = blue, fill = ..count..), 
           binwidth = c(0.01, 0.01)) + # 可根据需求调整bin精细度
  theme_bw() +
  scale_x_continuous(name = "绿色荧光强度") +
  scale_y_continuous(name = "蓝色荧光强度") +
  scale_fill_steps(
    breaks = c(0, 5, 10), # 定义区间分界点：<5、5-10、>10
    colors = c("red", "orange", "green"), # 对应区间的热图风格颜色
    labels = c("<5 个点", "5-10 个点", ">10 个点"), # 图例标签
    name = "Bin内点数", # 图例标题
    na.value = "white" # 空bin显示为白色，更清晰展示数据范围
  )

如果需要更精细的区间（比如0-2、2-5、5-10、10-20、>20），只需要修改breaks和colors参数即可：

scale_fill_steps(
  breaks = c(0, 2, 5, 10, 20),
  colors = c("darkred", "red", "orange", "yellowgreen", "darkgreen"),
  labels = c("<2", "2-5", "5-10", "10-20", ">20"),
  name = "Bin内点数"
)

2. 解决缩小binwidth时的“丢点”问题 #

你提到的“丢失大量点”其实是geom_hex的正常视觉表现：

• geom_hex是将数据点聚合到六边形bin中，只会显示包含数据的bin；
• 当binwidth缩小时，每个bin的范围变小，原来一个bin里的点会被分到多个bin中，部分bin会因为没有数据而不显示，所以视觉上看起来像是“丢点”，但所有数据都被正确处理了。

如果想要优化这种视觉效果，可以尝试：

• 调整binwidth到一个平衡点：既保证足够的精细度，又不会让太多bin为空；
• 保留上面代码中的na.value = "white"，让空bin显示为白色，能更清晰地看到数据分布的整体范围；
• 如果需要同时看到单个点的位置，可以叠加透明散点（适合重叠严重的场景）：

ggplot(newData_cut) +
  geom_hex(aes(x = green, y = blue, fill = ..count..), 
           binwidth = c(0.01, 0.01)) +
  geom_point(aes(x = green, y = blue), alpha = 0.1, size = 0.5) + # 叠加低透明度点
  theme_bw() +
  # 其余scale设置同上

这样就能同时保留hex bin的聚合统计信息，又能看到所有原始点的分布啦～

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