## Not run:
# # Download the most current month unemployment statistics on a county level.
# df <- get_bls_county()
#
# # Map the unemployment rate by county.
# bls_gg <- bls_map_county(map_data = df, fill_rate = "unemployed_rate",
# labtitle = "Unemployment Rate")
# bls_gg
#
#
# # Map the unemployment rate for Florida and Alabama.
#
# df <- get_bls_county(stateName = c("Florida", "Alabama"))
#
# bls_gg <- bls_map_county(map_data=df, fill_rate = "unemployed_rate",
# stateName = c("Florida", "Alabama"))
#
# bls_gg
# ## End(Not run)
Run the code above in your browser using DataLab