Annual Personal Income by County

Data - BEA

Author

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("")