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) 

最佳 添