Somali ancestry in Minnesota by city

library(tidycensus)
library(tidyverse)
library(knitr)
library(kableExtra)

# You'll need your own Census API key
# census_api_key("YOUR_KEY_HERE", install = TRUE)

somali_by_place <- get_decennial(
  geography = "place",
  variables = "T01001_001N",
  state = "MN",
  year = 2020,
  sumfile = "ddhca",
  pop_group = "1325"
)

total_by_place <- get_decennial(
  geography = "place",
  variables = "P1_001N",
  state = "MN",
  year = 2020,
  sumfile = "pl"
)

place_data <- total_by_place %>%
  left_join(somali_by_place %>% select(GEOID, somali_count = value), by = "GEOID") %>%
  mutate(
    `percent_somali` = somali_count / value * 100
  ) %>%
  select(NAME, total_population = value, somali_count, percent_somali) %>%
  filter(somali_count >= 1) %>%
  arrange(desc(percent_somali))

place_data %>%
  kable(format = "markdown") %>%
  kable_styling()