RgoogleMaps上的传说？

Question

我使用库(RgoogleMaps)来绘制测量图--地图(点)上的位置。在不同的点上有不同的设备，我成功地获得了每台设备分别着色的点数：

theplot <- PlotOnStaticMap(lat=sitecoord$lat, lon=sitecoord$lon, 
                           cex=.7, pch=20, 
                           col=sitecoord$equipmentType, 
                           MyMap=Map, NEWMAP=FALSE)

如何将图例添加到生成的地图-图中，以查看哪些设备由蓝色点表示，哪些用红色表示，等等？

更新：

使用@Rguy的非常好的建议。我成功地把传说写进去了。为了其他人的利益，下面是我的测试代码(不，我不是在冰岛测量，只是用它作为例子)：

library(RgoogleMaps)
library(RColorBrewer)

Equipment <- c("AA","AA","BB","CC")
lat <- c(63.90,66.20,64.80,64.50)
lon <- c(-22.40,-14.20,-18.60,-15.00)
tblDataPoints <- data.frame(Equipment,lat,lon)

My.Pal <- brewer.pal(3, "Reds")
tblDataPoints$colorz <- My.Pal[tblDataPoints$Equipment]

plot.new()
bb <- qbbox(lat=range(tblDataPoints$lat), lon=range(tblDataPoints$lon))
m <- c(mean(tblDataPoints$lat), mean(tblDataPoints$lon))
zoom <- min(MaxZoom(latrange=bb$latR,lonrange=bb$lonR))
Map <- GetMap.bbox(bb$lonR, bb$latR, zoom=zoom, maptype="roadmap", NEWMAP=TRUE)
tmp <- PlotOnStaticMap(lat=lat, lon=lon, cex=.7, pch=20, col=tblDataPoints$colorz, MyMap=Map, NEWMAP=FALSE)

tblLgd <- unique(tblDataPoints[,c("Equipment","colorz")])
row.names(tblLgd) <- NULL

legend("topright", legend = tblLgd$Equipment, fill = tblLgd$colorz, bg = "white")

Answer 1

我以前也这么做过。如果您已经对legend函数的问题做了一个可重复的例子，我们可以讨论它。在那之前，这里有一个模糊的解释。

1. 使用RColorBrewer创建了一个味觉。例如：

库(RColorBrewer) My.pal <- brewer.pal(9，“红色”)

1. 以某种方式为您的每个点分配颜色。在我的例子中，我有一个WT列和一个回收箱向量，所以我通过绑定权值来生成每个点的颜色，并将my.pal中的color条目作为那个点的颜色。请注意，在本例中，我的binz载体中只有不到9个桶，因为我的腭只有9种颜色的红色.

。

着色z <- My.Palcut(数据$WT，标签= FALSE)

1. 在地图上绘制，传递颜色参数。

PlotOnStaticMap(MyMap，lat = datas$LAT，lon = datas$LON，col =col)

1. 最后创建图例，并将其添加到地图中。

图例(“底部左”，图例= legend.txt，填充= My.pal，标题= "I AM"，bg =“白色”)

希望你能弄明白！