我正在尝试在 R 中绘制邮政编码之间的旅行。具体来说，我正在尝试创建一个交互方式，您可以在其中单击每个邮政编码，并根据从您单击的邮政编码到该邮政编码的人数来查看其他邮政编码的颜色其他邮政编码。有点像这样：https ://www.forbes.com/special-report/2011/migration.html
但不那么花哨；仅仅显示“向外迁移”就很棒了。
我一直在使用传单包在 R 中搞砸这个，但我还没有设法弄清楚。有更好的 R 技能的人可以帮助我吗？任何见解将不胜感激。
我从这里下载了洛杉矶县邮政编码的 shapefile： https ://data.lacounty.gov/Geospatial/ZIP-Codes/65v5-jw9f
然后我使用下面的代码创建了一些玩具数据。
您可以在此处找到邮政编码 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")
就像我说的，任何帮助将不胜感激。谢谢！