не может построить отрицательные значения долготы в PlotOnStaticMap в R - PullRequest
0 голосов
/ 01 июня 2018

У меня есть:

> df1
          lon      lat grp
1  0.02310676 51.39729   0
2 -0.04666115 51.40614   0
3  0.09730595 51.38398   0
4  0.02458385 51.39580   1

и я хочу нанести его на карту.

library(RgoogleMaps)
> center
[1] 51.389486  0.036657
mm=GetMap(center=center,zoom=10,maptype= "roadmap", destfile = "satellite.png")
PlotOnStaticMap(mm,lat=df1$lat,lon=df1$lon,pch=20,col=df1$grp, cex=2.3)

результат - 3 правильно размещенных маркера, отсутствующий маркер - с отрицательным значением.enter image description here Дальнейшее рассмотрение:

PlotOnStaticMap(mm,lat=51.40614,lon=0.04666115,pch=20,col=c('red','dark blue'), cex=2.3)

enter image description here показывает красную точку там, где я хочу, НО:

PlotOnStaticMap(mm,lat=51.40614,lon=-0.04666115,pch=20,col=c('red','dark blue'), cex=2.3)

enter image description here ничего не дает.

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

1 Ответ

0 голосов
/ 02 июля 2018

Эта проблема больше не возникает в RgoogleMaps версии 1.4.2, выпущенной 2018-06-01:

library(RgoogleMaps)

## example data
df1 = data.frame(lon = c(0.02310676, -0.04666115, 0.09730595, 0.02458385)
                 , lat = c(51.39729, 51.40614, 51.38398, 51.39580)
                 , grp = c("0", "0", "0", "1"))

center = c(51.389486, 0.036657)

## get google map
dfl = tempfile(fileext = ".png")
mm = GetMap(center, zoom = 12, maptype = "roadmap", destfile = dfl)

## display map with points
par(pty = "s")
PlotOnStaticMap(mm, lat = df1$lat, lon = df1$lon, pch = 20, col = df1$grp, cex = 2.3)

PlotOnStaticMap

...