Connecting spatial points with directed lines using the PlotGoogleMaps package in R
I am trying to make some dynamic Google Map plots from R using the package PlotGoogleMaps
. I have no problem planning spatial points on google maps using this package.
I want to concatenate multiple pairs of spatial points built in rows. I couldn't find any way to do this in R with a package. It seems that Google Maps is a function for the API: google.maps.Polyline
.
Can anyone help on how this can be done in R? I have referenced links like How to get iconMarker image working on plotGoogleMaps R? to make sure my main plot is working fine. How can I join them to show the way?
I ran the code below
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")
It works great. But I don't know how to connect the plotted points to make a path between the selected pair of points on the map.
source to share
This does not answer your question directly, but I am posting it as a potential alternative.
I have built a package googleway
that includes a Google Maps widget.
To use Google Maps you need the 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')
source to share