Annual Personal Income by County - CAINC1

Data - BEA


Geography

Code
CAINC1 |>
  group_by(GeoFIPS, GeoName) |>
  summarise(Nobs = n()) |>
  head(10) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Income

Code
CAINC1 |>
  filter(GeoFIPS == "04013",
         LineCode == 1) |>
  select(date, income = value) |>
  ggplot() + geom_line(aes(x = date, y = income)) +
  theme_minimal() + xlab("") + ylab("") 

Income Per Capita

Code
CAINC1 |>
  filter(GeoFIPS == "04013",
         LineCode == 3) |>
  select(Description, Unit, date, value) |>
  ggplot() + geom_line(aes(x = date, y = value)) +
  theme_minimal() + xlab("") + ylab("")