Zip Radius Package"

In ZipRadius: Creates a Data Frame of US Zip Codes in a Given Radius from a Given US Zip Code

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(ZipRadius)

This package has been submitted to CRAN but is also available on my Github page:

library(devtools)
install_github('EAVWing/ZipRadius')

If you give it a US zip code and a radius in miles it returns a data frame containing all of the US zip codes that have a center point within the distance specified by the radius.

For example these are the 8 zipcodes within 3.5 miles of zip code 30316:

test <- zipRadius("30316", 3.5)
test

It also includes 3 functions which can be used with Ari Lamstein's choroplethrZip package. choroplethrZip is too big to be supported by CRAN so if you want to use it you should install it with:

library(devtools)
install_github('arilamstein/choroplethrZip@v1.3.0')

The get states function gives a character vetctor of the states in a zip radius. Here are the states within 200 miles of 30316:

getStates("30316", 200)

Sometimes you'll need a character vector of the zip codes instead of a data frame:

getZips("30316", 3.5)

You also could want a data frame that includes just the zip codes as region and the population for those zip codes. This uses an innerjoin with the population data frame from choroplethrZip so any zip codes that don't appear in both our zip list used for distance measurements and their zip list with populations are dropped. You'll see this now returns 6 zip codes vs. the 8 returned with the zipRadius function.

getZipPop("30316", 3.5)

Finally, here's an example of making a choroplethr of the zip codes in the radius. I haven't included this function in the package because I can't import 'choroplethrZip' into the package due to its size.

library(ZipRadius)
library(choroplethrZip)
library(ggplot2)

makeZipMap <- function(zipcode, radius){
  choro = choroplethrZip::ZipChoropleth$new(getZipPop(zipcode, radius))
  suppressMessages(suppressWarnings(choro$prepare_map()))
  choro$legend = "Population"
  ec_zips = getZips(zipcode, radius)
  ec_df   = choro$choropleth.df[choro$choropleth.df$region %in% ec_zips,]
  ec_plot = choro$render_helper(ec_df, "", choro$theme_clean())

  ec_plot + ggplot2::coord_map()
}
makeZipMap("30316", 500)

knitr::include_graphics("500miFrom30316.png")

ZipRadius documentation built on May 1, 2019, 9:13 p.m.