Questions tagged «ggmap»

我已经安装了以下两个软件包： library(ggmap) library(maps) 我在网上找到了创建世界地图的代码（请参见下文）。如何在国家/地区级别上放大图？例如，丹麦。 ggplot()+ borders("world", colour="gray50", fill="gray50")

14 r  ggplot2  ggmap 

我想在罗宾逊投影中投影这张地图： library(ggmap) world <- map_data("world") ggplot() + geom_path(data = world, aes(long, lat, group = group)) 并且我想将投影更改为“罗宾逊”（在回答我以前的问题的建议之后：Wikipedia使用的全球气候区域地图使用哪种投影？ 我很难找到此投影的默认实现，使用该proj4库我做了以下工作： library(proj4) robinson <- project(cbind(world$long, world$lat), proj = "+proj=robin +lon_0=0 +x_0=0 +y_0=0 +ellps=WGS84 +datum=WGS84 +units=m +no_defs") 我尝试了多种方法，包括： # using ggmap::get.map() get_map("world", projection = mapprojection(robinson)) # using ggplot2::coord_map coord_map(projection = robinson) # and sp::coordinates: library(sp) …

13 coordinate-system  r  proj  ggmap 

使用ggmap，我想在包含一些位置点的地图上包括来自shapefile的市政边界（多边形）。除了绘制多边形外，此脚本会执行所有操作： library(rgdal) library(ggmap) # Get shapefile with Drammen municipality borders tmpzip<-tempfile() tmpdir<-tempfile() dir.create(tmpdir) download.file("http://www.kartverket.no/Documents/Kart/N50-N5000%20Kartdata/33_N5000_shape.zip",tmpzip) unzip(tmpzip, exdir=tmpdir) kommune <- readOGR(dsn=tmpdir, layer="NO_AdminOmrader_pol") kommune<-kommune[kommune$NAVN=="Drammen",] kommune<-spTransform(kommune, CRS("+init=epsg:4326")) # Get location point data subscr<-data.frame(lon=c(10.1237,10.2161,10.2993),lat=c(59.7567,59.7527,59.6863), pop=c(58,12,150)) coordinates(subscr)<-~lon+lat proj4string(subscr)<-CRS("+init=epsg:4326") lon <- c(10.0937,10.3293) lat <- c(59.7916,59.6563) map <- get_map(location = c(lon[1], lat[2], lon[2], lat[1]), maptype = "roadmap", source …

9 shapefile  r  ggmap