Отображение потока в R
Я пытаюсь составить график поездок между почтовыми индексами в R. В частности, я пытаюсь создать интерактив, в котором вы можете нажимать на каждый почтовый индекс и видеть, как другие почтовые индексы раскрашиваются в соответствии с тем, сколько человек перешло с почтового индекса, по которому вы щелкнули другие почтовые индексы. Вроде как это: https://www.forbes.com/special-report/2011/migration.html
Но меньше фантазии; просто показывать "миграцию" было бы супер.
Я возился с этим в R, используя пакет листовки, но мне не удалось понять это. Может ли кто-нибудь с лучшими навыками R помочь мне? Любое понимание будет высоко ценится.
Я скачал шейп-файл почтовых индексов в округе Лос-Анджелес здесь: https://data.lacounty.gov/Geospatial/ZIP-Codes/65v5-jw9f
Затем я использовал приведенный ниже код для создания игрушечных данных.
Вы можете найти шейп-файлы почтового индекса здесь: 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")
Как я уже сказал, любая помощь будет высоко ценится. Спасибо!