R 如何让图像图标标记器为绘图仪工作?
我想做什么: 我试图在一张漂亮的交互式地图上用不同的图标绘制两组点(血管)。(船只有经度和纬度)互动性很重要 代码实际上将进入闪亮应用程序中的iframe内部 我建立了一个示例血管数据集(两组5个),并将它们绘制到两个单独的层上。我一直在做一些研究,谷歌地图似乎是一个很好的软件包R 如何让图像图标标记器为绘图仪工作?,r,google-maps,shiny,plotgooglemaps,R,Google Maps,Shiny,Plotgooglemaps,我想做什么: 我试图在一张漂亮的交互式地图上用不同的图标绘制两组点(血管)。(船只有经度和纬度)互动性很重要 代码实际上将进入闪亮应用程序中的iframe内部 我建立了一个示例血管数据集(两组5个),并将它们绘制到两个单独的层上。我一直在做一些研究,谷歌地图似乎是一个很好的软件包 library(plotGoogleMaps) vessels = data.frame(id = c(1:10) , lat = c(22.0959, 22.5684, 21
library(plotGoogleMaps)
vessels = data.frame(id = c(1:10)
, lat = c(22.0959, 22.5684, 21.9189, 21.8409, 22.4663, 22.7434, 22.1658, 24.5691, 22.4787, 22.3039)
, lon = c(114.021, 114.252, 113.210, 113.128, 113.894, 114.613, 113.803, 119.730, 113.910, 114.147))
group1 = vessels[1:5,]
group2 = vessels[6:10,]
coordinates(group1) = ~ lon + lat
proj4string(group1) = CRS("+proj=longlat +datum=WGS84")
group1 <- SpatialPointsDataFrame( group1 , data = data.frame( ID = row.names( group1 ) ))
coordinates(group2) = ~ lon + lat
proj4string(group2) = CRS("+proj=longlat +datum=WGS84")
group2 <- SpatialPointsDataFrame( group2 , data = data.frame( ID = row.names( group1 ) ))
m <- plotGoogleMaps(group1, legend = FALSE, layerName = "Vessels 1"
, add = T, iconMarker='http://maps.google.com/mapfiles/kml/shapes/placemark_circle.png', mapTypeId='ROADMAP')
m <- plotGoogleMaps(group2,legend = FALSE, layerName = "Vessels 2"
, previousMap = m , add = F
, iconMarker = 'http://maps.google.com/mapfiles/kml/shapes/placemark_circle.png'
, filename = "out.htm")
库(谷歌地图)
容器=数据帧(id=c(1:10)
,lat=c(22.0959,22.5684,21.9189,21.8409,22.4663,22.7434,22.1658,24.5691,22.4787,22.3039)
,lon=c(114.021、114.252、113.210、113.128、113.894、114.613、113.803、119.730、113.910、114.147))
第1组=血管[1:5,]
第2组=船只[6:10,]
坐标(组1)=~lon+lat
proj4string(group1)=CRS(“+proj=longlat+DATAM=WGS84”)
group1您需要对最后两行代码进行一些修改,然后您就会得到您想要的
m <- plotGoogleMaps(group1, legend = FALSE, layerName = "Vessels 1"
, add =T,
iconMarker=rep('http://maps.google.com/mapfiles/kml/shapes/placemark_circle.png',nrow(group1) ),
mapTypeId='ROADMAP', filename = "out.htm")
m <- plotGoogleMaps(group2,legend = FALSE, layerName = "Vessels 2"
, previousMap = m , add = F
, iconMarker = rep('http://maps.google.com/mapfiles/kml/shapes/placemark_circle.png',nrow(group2) )
, filename = "out.htm")
m我在一个新的R会话中运行了你的代码,得到了一个带有一些点的图。我想你需要告诉我们结果出了什么问题。你期望什么,你得到什么?我得到的东西看起来很像你可能想要的。我会附上一张照片(但缺乏声誉不允许这样做)。我得到了默认的图标标记(上面有数字)。而不是我在代码中引用的:哦,这很有意义。您可能应该将其明确地编辑到您的问题中。也可以随意上传一些东西到imgur,有更多代表的人可以将其编辑到您的问题中。