3

我一直在尝试使用PlotGoogleMaps包从 R 中做一些动态的谷歌地图图。我使用这个包在谷歌地图上绘制空间点没有问题。

我想连接一些用线绘制的空间点对。我找不到任何方法在 R 中使用包来做到这一点。谷歌地图似乎在 API 中有一个功能：google.maps.Polyline.

任何人都可以帮助如何在 R 中完成这项工作吗？我提到了如何让图像 iconMarker 为 plotGoogleMaps R 工作的链接？以确保我的基本情节工作正常。我怎样才能加入他们以显示路径？

我运行了下面的代码

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

它工作正常。但我不知道如何连接绘制的点以在地图上选定的一对点之间建立路径。

4

1 回答 1

0

这并不能直接回答您的问题，但我将其发布为潜在的替代方案。

我已经构建了这个googleway包，其中包括一个谷歌地图小部件。

要使用 Google Maps，您需要Google Maps API 密钥

library(googleway)

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

vessels$group <- c(rep(1, 5), rep(2, 5))

## a google maps api key
map_key <- "your_api_key"

google_map(key = map_key, data = vessels) %>%
    add_circles(radius = 1000) %>%
    add_polylines(lat = 'lat', lon = 'lon', id = 'group', 
                   mouse_over_group = 'group')

在此处输入图像描述

于 2017-04-18T21:51:49.663 回答