使用geom_point叠加ggmap时图例无法显示的问题排查

你的代码有几个关键问题导致图例无法正常显示：

• 颜色映射逻辑错误：你同时在aes()内部和geom_point外部设置了color='blue'，外部参数会覆盖aes的映射，而且aes里直接写固定颜色值不会触发图例生成——ggplot的图例是基于变量映射生成的，不是直接指定颜色。
• 语法错误：theme(legend.justification=c("right", "top)) 缺少最后一个闭合引号，会导致代码报错。
• 散点尺寸过小：size=.2会让图例中的点几乎看不见，影响效果。

以下是修正后的代码：

seizures_map <- get_googlemap(center="Chicago") %>% 
  ggmap() +
  geom_point(data=seizures.df, 
             aes(x=Longitude, y=Latitude, color="seizures"),  # 用字符串作为分类映射，触发图例
             alpha=.5, 
             size=1,  # 调大尺寸让图例点更清晰
             stroke=NA, 
             show.legend=TRUE) +
  scale_color_manual(values = "blue") +  # 指定该分类的颜色为蓝色
  theme(legend.justification=c("right", "top"))  # 补全缺失的引号

关键修改说明： #

1. 把aes()里的color='blue'改为color="seizures"：这样ggplot会将这个字符串视为一个分类变量，自动生成以"seizures"为文字的图例项。
2. 移除geom_point外部的color='blue'，改用scale_color_manual指定颜色：既保证散点是蓝色，又能让图例正确关联这个分类。
3. 修复theme中的引号缺失问题，确保代码正常运行。
4. 调大size参数：让图例中的蓝色圆点清晰可见，你可以根据实际需求调整这个数值。

内容的提问来源于stack exchange，提问作者DiamondJoe12