我的问题与this thread有些相关，但我想为每个符号实际上都有黑色边框，因为我有符号重叠的实例，我认为有边框会有所帮助 . 但是，我的颜色和形状基于geom_point中美学内部的变量，因此使用shape = 21和color = NA的解决方案并不能完全解决我的问题：我希望用基于变量和基于形状的颜色填充符号另一个变量 . 可以这样做吗？或者我应该以不同的方式接近这个？

df

"lat"= c(29.752778, 29.733726, 39.751184, 39.704005),

"type"= c("aa", "bb", "aa", "bb"),

"mean"= c(5.369, 3.476, 7.857, 2.356))

states

mymap

geom_polygon(aes(x = long, y = lat, group = group), fill=NA, color = "black") +

coord_fixed(1.3) +

guides(fill=FALSE)+

geom_point(data=df, aes(x=lon, y=lat, color=mean, shape=type),size=5, alpha=0.8)+

scale_colour_gradient(low = "royalblue4", high = "red")+

theme_bw()+

theme(legend.position = "right",

axis.text = element_blank(),axis.line = element_blank(),

axis.ticks = element_blank(),panel.border = element_blank(),

panel.grid = element_blank(),axis.title = element_blank(),

plot.title = element_text(hjust=0.5, size=14, face="bold"))

print(mymap)

我的 Map ：

感谢大家的时间和建议 .