如何让ggplot2的geom_point实现渐变填充与按布尔值设置边框颜色？

需求说明 #

使用ggplot2绘制散点图，要求：

• 点的填充色根据数值level呈现浅灰到深红的渐变
• 点的大小根据数值score调整
• 点的边框颜色根据布尔值sig设置：FALSE为黑色，TRUE为绿色

示例数据集 #

library(dplyr)
library(ggplot2)
library(reshape2) # 需要加载reshape2包用于melt函数

set.seed(1)
levels.mat <- matrix(data = runif(7*6, 1, 3), nrow = 7, ncol = 6, dimnames = list(paste0("I", 1:7), paste0("P", 1:6)))
scores.mat <- matrix(data = runif(7*6, 0, 10), nrow = 7, ncol = 6, dimnames = list(paste0("I", 1:7), paste0("P", 1:6)))
sig.mat <- matrix(data = sample(c(F, T), 7*6, replace = T), nrow = 7, ncol = 6, dimnames = list(paste0("I", 1:7), paste0("P", 1:6)))

df <- dplyr::left_join(reshape2::melt(levels.mat) %>% dplyr::rename(x = Var1, y = Var2, level = value),
                       reshape2::melt(scores.mat) %>% dplyr::rename(x = Var1, y = Var2, score = value)) %>%
  dplyr::left_join(reshape2::melt(sig.mat) %>% dplyr::rename(x = Var1, y = Var2, sig = value))

用户初始代码（填充色不生效） #

ggplot(df, aes(x = x, y = y))+
  geom_point(aes(fill = level, size = score, color = sig))+
  scale_fill_gradient(low = "lightgray", high = "darkred", aesthetics = "fill")+
  scale_color_manual(breaks = c(F, T), values = c("black", "green"), aesthetics = "color")+
  theme_minimal() + theme(axis.title.x = element_blank(), axis.title.y = element_blank(), axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

问题原因与解决方案 #

问题原因 #

默认的geom_point使用实心形状（shape=19），这类形状没有独立的填充色属性，fill参数会被忽略，颜色完全由color控制。要实现填充色和边框色分离，需要使用带填充的形状（shape编号21-25，其中21是圆形，最常用）。

修改后的代码 #

ggplot(df, aes(x = x, y = y))+
  # 指定shape=21（带填充的圆形），可选stroke参数调整边框粗细
  geom_point(aes(fill = level, size = score, color = sig), shape = 21, stroke = 1.5)+
  scale_fill_gradient(low = "lightgray", high = "darkred")+
  scale_color_manual(breaks = c(FALSE, TRUE), values = c("black", "green"))+
  theme_minimal() + 
  theme(axis.title.x = element_blank(), 
        axis.title.y = element_blank(), 
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

关键修改点 #

• 添加shape=21：该形状支持独立设置fill（内部填充色）和color（边框色）
• 可选stroke=1.5：调整边框的粗细，让不同的边框颜色更显眼
• 保留原有scale_fill_gradient和scale_color_manual的设置即可实现需求

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