我试图绘制R中的zipcodes之间的旅行。具体来说，我试图创建一个交互式，您可以点击每个邮政编码，并根据有多少人来自其他邮政编码您点击其他邮政编码的邮政编码。有点像这样：https://www.forbes.com/special-report/2011/migration.html
但不那么花哨;只是展示＆＃34; out-migration＆＃34;会是超级的。
我使用传单包在R中弄乱了这个，但我还没有设法解决这个问题。有更好R技能的人可以帮助我吗？任何见解都会非常感激。
我从这里下载了洛杉矶县的zipcodes shapefile： https://data.lacounty.gov/Geospatial/ZIP-Codes/65v5-jw9f
然后我使用下面的代码创建一些玩具数据。
您可以在此处找到zipcode shapefile： https://drive.google.com/file/d/0B2a3BZ6nzEGJNk55dmdrdVI2MTQ/view?usp=sharing
你可以在这里找到玩具数据： https://drive.google.com/open?id=0B2a3BZ6nzEGJR29EOFdjR1NPR3c
这是我到目前为止所获得的代码：
require(rgdal)
setwd("~/Downloads/ZIP Codes")
# Read SHAPEFILE.shp from the current working directory (".")
shape <- readOGR(dsn = ".", layer = "geo_export_89ff0f09-a580-4844-988a-c4808d510398")
plot(shape) #Should look like zip codes in LA county
#get a unique list of zipcodes
zips <- as.numeric(as.character(unique(shape@data$zipcode)))
#create a dataframe with all the possible combination of origin and destination zipcodes
zips.df <- data.frame(expand.grid(as.character(zips),as.character(zips)), rpois(96721,10))
#give the dataframe some helpful variable names
names(zips.df) <- c("origin_zip", "destination_zip","number_of_trips")
就像我说的，任何帮助都会非常感激。谢谢！