我获得了一个带有该功能的地图,dismo::gmap()并希望用ggplot2绘制它,因为我想使用geom_point和其他ggplot函数添加不同的功能.我更喜欢使用dismo::gmap而不是ggmap::get_map()下载谷歌地图图层.这是因为dismo::gmap(),与ggmap::get_map()包括完整CRS信息的包栅格返回栅格图层不同,因此应该可以修改图层的投影.
> head(data_info$latitude, 20)
#[1] 49.11306 49.39333 48.78083 51.85000 53.57361 50.67806 52.69083 52.21389 53.46361 50.99917 53.99750 53.54528 53.61417 48.00556 48.01306 53.45000
#[17] 51.93667 54.53083 51.95500 54.29639
> head(data_info$longitude, 20)
#[1] 13.134722 12.323056 13.803889 12.177778 14.143611 13.175833 12.649444 13.454167 11.629722 10.906111 11.415556 8.426944 7.160000 11.123889 10.786111
#[16] 12.766667 11.987222 13.091389 10.967500 13.684167
e = extent(-14 , 58 , 28 , 64)
mapImageData2 <- gmap(e, type = c("terrain"), lonlat = TRUE,
path …