Census Lab

api_key <- '362e35407d0cb74ea9c4df3cbdd52555306bb4df'
census_api_key(api_key)

To install your API key for use in future sessions, run this function with `install = TRUE`.

me_census_data <- get_acs(geography = "public use microdata area",
        variable = "B16001_002",
        state = "NJ",
        survey = "acs5",
        year = 2019,
        cache = TRUE)

Getting data from the 2015-2019 5-year ACS
Using FIPS code '34' for state 'NJ'

ggplot(me_census_data, aes(x = estimate, width = 0.9)) +
  geom_histogram(binwidth = 10000, fill = "light blue", color = "black") +
  labs(title = "Histogram of People who Speak English Only in New Jersey", x = "Number of English-only speakers per PUMA", y = "Number of PUMAs per bin")

This histogram shows the population of New Jersey, divided into public user microdata areas, highlighting the number of people who speak only English at the age of 5 and older.