0
我的问题与this thread有点相关,但我想实际上有每个符号的黑色边框,因为我有实例符号重叠,我认为有边界会有所帮助。然而,我有颜色和形状基于geom_point中美学的一个变量,所以使用shape = 21和color = NA的解决方案并不完全解决我的问题:我想填充符号的颜色基于变量和基于另一个变量的形状。 可以这样做吗?或者我应该以不同的方式来解决这个问题?当绘制点根据地图上的变量着色和成形时,保留黑色边框(geom_point)
df <- data.frame("lon"= c(-95.350278, -95.257593, -104.987625, -104.998113),
"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<-map_data("state")
mymap<- ggplot(data = states) +
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)
我的地图:
感谢大家的时间和建议。
感谢您的及时解决! – silver