RgoogleMaps上的图例?
我使用库(RgoogleMaps)在地图上绘制测量位置(点)。不同的点上有不同的设备,我成功地获得了每个设备的单独彩色点:RgoogleMaps上的图例?,r,google-maps,rgooglemaps,R,Google Maps,Rgooglemaps,我使用库(RgoogleMaps)在地图上绘制测量位置(点)。不同的点上有不同的设备,我成功地获得了每个设备的单独彩色点: theplot <- PlotOnStaticMap(lat=sitecoord$lat, lon=sitecoord$lon, cex=.7, pch=20, col=sitecoord$equipmentType,
theplot <- PlotOnStaticMap(lat=sitecoord$lat, lon=sitecoord$lon,
cex=.7, pch=20,
col=sitecoord$equipmentType,
MyMap=Map, NEWMAP=FALSE)
theplot我以前做过这个。如果您已经为legend
函数的问题提供了一个可复制的示例,我们可以对此进行讨论。在此之前,这里有一个模糊的解释
一,。使用RColorBrewer制作口感。例如:
库(RColorBrewer)
My.pal您可以使用“图例”功能进行此操作吗?请参阅帮助(图例)。是的,这可能是方向,但在PlotOnStaticMap如何选择颜色的逻辑中有一些我无法理解的东西(我在这方面不是很有经验,这可能很简单)。如果您将颜色预先指定给点并维护它们的记录,您将能够将颜色与它们对应的颜色相匹配。允许PlotOnStaticMap根据某些因素决定要为每个点指定哪些颜色,会留下关于在函数中某个位置指定了什么颜色的信息。
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")
library(RColorBrewer)
My.pal <- brewer.pal(9, "reds")