ggplot2在图例中添加额外信息

Question

我有一张加拿大地图

library(ggmap)
mp = get_map(location = "Canada", maptype="satellite", color="color")

然后我想在地图上绘制14个点：

p = ggmap(mp) + 
    geom_point(data=GPScor, x=lon, y = lat, col="red", size =2.1) + 

然后我想对你的图表中的点数进行编号：

geom_text(data=GPScor, aes(x=decLon, y=decLat,label=lbl),
    adj=2,offset=1, color="white", size=4, hjust=4) 

我无法找到如何创建图例的方式，它会列出具有相应点名称的数字：

之类的东西

1: "name of point1"
2: "name of point2 "   

Answer 1

抱歉，我最初误解了这个问题 您应该在aes的{​​{1}}中添加名称。

geom_point

如果您实际上不希望它们以不同的形状显示，则只需使用它们覆盖它 dat<-data.frame(name=c("a","b","c"), x=1:3, y=1:3) ggplot(dat, aes(x=x, y=y))+ geom_point(aes(shape=paste(1:3,": point",name)))+ geom_text(aes(x=x,y=y+0.07), label=1:3)+ labs(shape="locations") 并设置任意值。

scale_shape_manual

下面全部放在一起

  scale_shape_manual(values=rep(1,3))

以下是使用dat<-data.frame(name=c("a","b","c"), x=1:3, y=1:3) ggplot(dat, aes(x=x, y=y))+ geom_point(aes(shape=paste(1:3,": point",name)))+ geom_text(aes(x=x,y=y+0.07), label=1:3)+ scale_shape_manual(values=rep(1,3))+ labs(shape="locations") 显式

的示例

ggmap