如何在R中使用ggmap为分类变量制作黑色阴影？

Question

我的数据集有一个名为quartile的变量，它是一个包含1,2,3和4等值的分类变量。我还有每个观察值的相应纬度和经度。出于可视化目的，我使用ggmap绘制它并为每个四分位值获取不同的颜色。

代码如下。

ggmap(mapdata)+
 geom_point(data = dat, aes(x = longitude, 
                            y = latitude, 
                            shape = factor(quartile),
                            color = factor(quartile)
                            ), 
            size = 1.8) + 
 scale_shape(solid = FALSE)

但是我想制作一张黑白图片，它也可以区分不同的四分位数值。是否有可能创造出各种黑色色调？如何使用ggmap？