如何为ggplot2 facet_wrap分面中的彩色散点添加黑色外边框

pch=21属于带填充和边框的双属性点形：

• 边框颜色由colour参数控制
• 内部填充颜色由fill参数控制
  你之前的代码将colour强制设置为黑色，同时把物种分类映射到了colour属性，导致分类配色被覆盖，没有实现预期效果。

首先你需要先定义缺失的d_bg数据集（用来在每个分面渲染全量样本的灰色背景），再调整属性映射逻辑即可：

library(ggplot2)

d <- iris 
# 定义背景数据集：去掉物种分组标识，确保每个分面都显示全部样本的灰色背景
d_bg <- d[, names(d) != "Species"]

ggplot(d, aes(x = Sepal.Width, y = Sepal.Length, fill = Species)) + # 分类映射从colour改为fill，对应点的填充色
  geom_point(data = d_bg, colour = "grey", size = 2) +
  geom_point(pch = 21, colour = "black", size = 2) + # colour仅控制边框为黑色，fill继承物种分类映射
  facet_wrap(~ Species) +
  guides(fill = FALSE) + # 同步修改隐藏图例的参数，隐藏fill对应的分类图例
  theme_bw()

• 美学映射中将colour = Species改为fill = Species，让物种分类对应点的内部填充色，保留原始的红、绿、蓝分类配色
• geom_point里的colour='black'仅控制点的外边框颜色，不会覆盖填充色
• 同步调整图例隐藏的参数，避免出现多余的分类图例

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