## Not run:
# # Downlaod employment statistics for April 2016.
# df <- get_bls_state("April 2016", seasonality = TRUE)
#
# # Map the unemployment rate from data set.
# bls_gg <- bls_map_state(map_data = df, fill_rate = "unemployed_rate",
# labtitle = "Unemployment Rate")
# bls_gg
# ## End(Not run)
Run the code above in your browser using DataLab