ggplot2如何绘制带多色边框的填充点（黑白高对比效果）

• 适配需求：绘制带填充色的散点时，在点默认的黑色边框外侧额外增加一圈白色边框，实现黑白高对比显示效果
• 方案优势：无需依赖自定义点形状素材，可实现每个点的白边、黑边、填充层完整自然叠加，不会出现某一层边框被统一置于所有点最下方、重叠时层级错乱的问题

实现核心逻辑 #

逐行复制原始数据集的每一个数据点，绘图时按顺序逐组渲染：先绘制尺寸稍大的白色点作为外层边框基底，再在同坐标位置绘制尺寸更小、带黑色描边的彩色填充主点，保证单个点的所有视觉层连续叠加，从根源避免跨点的层级错乱问题。

完整可复现代码 #

# 基于R内置mpg数据集构造测试数据，添加随机扰动避免点完全重叠
test_mpg = mpg
# 给排量列增加0-0.5范围的随机偏移
test_mpg$displ = test_mpg$displ + runif(length(test_mpg$displ), min = 0, max = 0.5)
# 给城市油耗列增加0-5范围的随机偏移
test_mpg$cty = test_mpg$cty + runif(length(test_mpg$displ), min = 0, max = 5)

# 步骤1：构造行数翻倍的新数据集，每个原始数据点对应两行记录
rowind = seq(1,nrow(test_mpg))
# 生成重复两次的行索引序列，格式为1,1,2,2,3,3……
rowind2 = rep(rowind, each = 2, times = 1)
newdata = test_mpg[rowind2,]
# 标记奇偶行：奇数行值为1，对应外层白边点；偶数行值为0，对应上层主点
newdata$odd_row = seq_len(nrow(newdata)) %% 2

# 步骤2：生成交替映射的美学参数列
# 配置点尺寸
newdata$pointsize = NA
# 奇数行设置为更大的尺寸，数值决定外层白边的可见宽度
newdata[newdata$odd_row == 1,]$pointsize = 2.0
# 偶数行设置为主点的实际显示尺寸
newdata[newdata$odd_row == 0,]$pointsize = 1.5

# 配置点描边颜色
newdata$pointcolor = NA
# 奇数行描边设为白色，作为外层边框
newdata[newdata$odd_row == 1,]$pointcolor = "white"
# 偶数行描边设为黑色，作为主点的内层边框
newdata[newdata$odd_row == 0,]$pointcolor = "black"

# 步骤3：绘图输出
test_plot = ggplot(newdata, aes(displ, cty,  fill = drv, shape = drv)) +
  scale_fill_manual(values=c("green","blue","yellow")) +
  scale_shape_manual(values= c(23, 24, 25)) +
  # 注意size和color参数需写在aes()外部，直接引用提前生成的参数列
  geom_point(alpha = 1, size = newdata$pointsize, stroke = 0.75, color = newdata$pointcolor) +
  theme_bw()

test_plot

代码运行后即可得到预期效果：每个填充点外层环绕均匀白边，白边内侧为标准黑色描边，点与点重叠时层级自然。可通过调整两个pointsize的差值控制外层白边宽度，调整stroke参数控制内层黑边粗细。

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