在R语言散点图中为数据点添加黑色边框的实现方案

在ggplot2里，直接设置color = "black"会覆盖分组颜色，要实现仅边框黑色、填充保留分组色的效果，得区分填充色和边框色：

• 把原代码中aes()里的color = Group改成fill = Group，用填充色来区分不同分组
• 在geom_point()的外部参数里设置color = "black"，专门指定黑色边框
• 注意：只有带填充属性的形状（比如shape编号21-25的样式）支持单独设置填充和边框色，所以要确保model对应的形状属于这类；如果默认形状不符合，可手动指定形状映射

修改后的完整代码：

whittaker_base_plot() +
  labs(
    title = "Locations by Biomes") +
  # 添加温湿度数据点
  geom_point(data = extractions, 
             aes(x = temperature, 
                 y = precipitation, 
                 fill = Group,
                 shape = model), 
             stroke = 0.5,  # 可调整stroke值改变边框粗细
             size   = 6,
             color = "black",
             alpha  = 0.5)

如果model对应的默认形状不是带填充的类型，可手动添加形状映射：

# 示例：根据model的类别数量指定带填充的形状
scale_shape_manual(values = c(21, 22, 23))

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