R上的互动缩放地图

Question

因此，我正在做一个项目，我正在寻找与县建立美国地图。我目前已经成功创建了一张地图，但我正在寻求改进它。我有兴趣生成一张地图，其中会显示美国的州，如果我点击一个可以放大并显示州列出的州的州。然后我希望能够点击县获得在R中的数据集相应的信息。这是可能的在R中做，如果是这样，任何帮助将不胜感激。

这是代码我目前正在使用：

library(devtools) 
find_rtools() 
devtools::install_github("hafen/housingData") 
library(housingData);library(devtools) 

head(geoCounty) 
geo <- divide(geoCounty, by = c("state", "county")) 
geo[[1]] 

install.packages(maps) 
install.packages(maptools) 
library(maps) 
library(maptools) 

US <- map("state",fill=TRUE, plot=FALSE) 
US.names <- US$names 
US.IDs <- sapply(strsplit(US.names,":"),function(x) x[1]) 
US_poly_sp <- map2SpatialPolygons(US,IDs=US.IDs,proj4string=CRS("+proj=longlat 
+ datum=wgs84")) 
plot(US_poly_sp,col="white",axes=TRUE) 
points(geoCounty$lon, geoCounty$lat) 

感谢， 乔伊

Answer 1

乔伊， 这个怎么样？

library(mapview) 
library(raster) 

counties <- getData("GADM", country = "USA", level = 2) 

mapview(counties) 

最佳 添