R GG根据调查类型确定地图颜色

我正在尝试创建一个地图，该地图将显示我所有的横向/纵向数据点，每个测量类型用不同的颜色表示

setwd("/Users/Jon/Desktop")
Total_Surveys=read.csv("Survey_Map.csv")
library(RgoogleMaps)
library(ggmap)
attach(Total_Surveys)

Finalmap<- get_map(location = c(lon = -23.17, lat = 15.2), zoom = 11,  
                   maptype = "hybrid", scale = 2)

ggmap(Finalmap) +
    geom_point(data = Total_Surveys,
               aes(x = Longitude,
                   y = Latitude,
                   fill = "red",
                   alpha = 0.8), 
               size = 5,
               shape = 21) +
    guides(fill=FALSE, alpha=FALSE, size=FALSE)

---

正如@divibisan所说，将填充美学更改为测量类型应该可以满足您的要求：

ggmap(Finalmap) +
    geom_point(data = Total_Surveys,
               aes(x = Longitude,
                   y = Latitude,
                   fill = Survey_Type,
                   alpha = 0.8), 
               size = 5,
               shape = 21) +
    guides(fill=FALSE, alpha=FALSE, size=FALSE)

给我

---

为什么不在几何点中使用fill=Survey\u Type…？谢谢，这生成了一张漂亮的地图，但是所有测量数据点都是红色的。我希望四种调查类型的颜色各不相同。在你上面发布的代码中，你有fill='red'，这将使所有分数变为红色。如果将其替换为fill=Survey\u Type，则颜色应基于Survey\u Type变量的值。你做到了吗？我做到了，分数保持红色。你能用dput分享你的数据吗？i、 e.使用dputTotal_调查，而不是复制和粘贴文本。我还要注意的是，在你的数据中，你混合了纬度和坐标。轰！成功了。我写的是调查类型而不是调查类型。非常感谢你们两位。

ggmap(Finalmap) +
    geom_point(data = Total_Surveys,
               aes(x = Longitude,
                   y = Latitude,
                   fill = Survey_Type,
                   alpha = 0.8), 
               size = 5,
               shape = 21) +
    guides(fill=FALSE, alpha=FALSE, size=FALSE)