这个答案的灵感来自于 接受了答案 一个类似的问题。
使用美学 stroke 小值,零或接近零,如 0.1 。
stroke
0.1
df <- data.frame(x = rep(0, 4), y = rep(0, 4), stroke = (0:3)/4) ggplot(df) + geom_point(aes(x, y, stroke = stroke), shape = 1, size = 20, colour = 'red') + facet_wrap(~ stroke)