Как заставить изображение iconMarker работать для plotGoogleMaps R?

Question

Что я пытаюсь сделать: я пытаюсь нанести 2 группы точек (сосудов) с разными значками на красивую интерактивную карту. (У судов есть долгота и широта) Интерактивность важна!

Код на самом деле будет идти внутри iframe в блестящем приложении.

Я установил примерный набор данных судна (две группы по 5) и нанес их на 2 отдельных слоя. Я провел небольшое исследование, и plotGoogleMaps показался мне хорошим пакетом.

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")

Может кто-нибудь сказать мне, где код идет не так? Любые конструктивные идеи приветствуются!

Результат:

Значок маркера на самом деле не был поднят, как вы можете видеть на результат. Я хотел бы использовать собственное изображение. Спасибо за помощь

Answer 1

Вам нужно немного изменить последние 2 строки кода, и тогда вы получите то, что хотите.

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")