## Not run: ------------------------------------
# # Median income of all ZCTAs in New York State
# zip_choropleth_acs("B19301", state_zoom="new york")
#
# # zoom in on all ZCTAs in the 5 counties (boroughs) of New York City
# nyc_fips = c(36005, 36047, 36061, 36081, 36085)
# zip_choropleth_acs("B19301", county_zoom=nyc_fips)
#
# # compare Manhattan's Lower East Side and Upper East Side
# manhattan_les = c("10002", "10003", "10009")
# manhattan_ues = c("10021", "10028", "10044", "10128")
# zip_choropleth_acs("B19301", num_colors=1, zip_zoom=c(manhattan_les, manhattan_ues))
#
# # show all ZCTAs in the New York Metropolitan Statistical Area (MSA)
# zip_choropleth_acs("B19301", msa_zoom="New York-Newark-Jersey City, NY-NJ-PA")
## ---------------------------------------------
Run the code above in your browser using DataLab