Highest Innovation Share Micropolitan Counties
highest_inno_share_micropolitans <- moodys_employ_share_2020 %>%
dplyr::filter(metropolitan_designation == "Micro") %>%
dplyr::arrange(desc(employment_co_share)) %>%
head(10)
knitr::kable(highest_inno_share_micropolitans)
| geoid_co | employment_co | employment_co_share | metropolitan_designation | rural_cbsa_flag |
|---|---|---|---|---|
| 35028 | 3.9881 | 0.0010123 | Micro | 1 |
| 26005 | 2.5217 | 0.0006401 | Micro | 1 |
| 33009 | 1.9553 | 0.0004963 | Micro | 1 |
| 31141 | 1.9250 | 0.0004886 | Micro | 1 |
| 37195 | 1.8731 | 0.0004754 | Micro | 1 |
| 27169 | 1.7226 | 0.0004372 | Micro | 1 |
| 53025 | 1.6332 | 0.0004145 | Micro | 1 |
| 37105 | 1.5234 | 0.0003867 | Micro | 1 |
| 48057 | 1.4763 | 0.0003747 | Micro | 1 |
| 09005 | 1.3677 | 0.0003472 | Micro | 1 |
Highest Innovation Employment Micropolitan Counties
highest_inno_employment_micropolitans <- moodys_employ_share_2020 %>%
dplyr::filter(metropolitan_designation == "Micro") %>%
dplyr::arrange(desc(employment_co)) %>%
head(10)
knitr::kable(highest_inno_employment_micropolitans)
| geoid_co | employment_co | employment_co_share | metropolitan_designation | rural_cbsa_flag |
|---|---|---|---|---|
| 35028 | 3.9881 | 0.0010123 | Micro | 1 |
| 26005 | 2.5217 | 0.0006401 | Micro | 1 |
| 33009 | 1.9553 | 0.0004963 | Micro | 1 |
| 31141 | 1.9250 | 0.0004886 | Micro | 1 |
| 37195 | 1.8731 | 0.0004754 | Micro | 1 |
| 27169 | 1.7226 | 0.0004372 | Micro | 1 |
| 53025 | 1.6332 | 0.0004145 | Micro | 1 |
| 37105 | 1.5234 | 0.0003867 | Micro | 1 |
| 48057 | 1.4763 | 0.0003747 | Micro | 1 |
| 09005 | 1.3677 | 0.0003472 | Micro | 1 |