ins <- read.csv2("C:/Users/joeca/Downloads/Health Insurance.csv")
utath <- ins[c(1,2,47)]
Health Insurance Coverage of Children 0-18
utath[c(2:6),c(1,3,2)] %>%
gt() %>%
gt_highlight_rows(rows = 5, font_weight = "normal") %>%
tab_header(
title = md("Health Insurance Coverage of Children 0-18"),
subtitle = md("Year 2019")
)
| X |
Utah |
United.States |
| Employer |
64.5% |
50.0% |
| Non-Group |
10.6% |
4.9% |
| Medicaid |
15.3% |
37.5% |
| Other Public |
1.5% |
2.0% |
| Uninsured |
8.1% |
5.6% |
Uninsured Rates for the Nonelderly by Age, 2019
utath[c(9:10),c(1,3,2)] %>%
gt() %>%
gt_highlight_rows(rows = 1, font_weight = "normal") %>%
tab_header(
title = md("Uninsured Rates for the Nonelderly by Age"),
subtitle = md("Year 2019")
)
| X |
Utah |
United.States |
| Children 0-18 |
8.1% |
5.6% |
| Adults 19-64 |
12.2% |
12.9% |
Uninsured Rates for the Nonelderly by Race/Ethnicity
utath[c(13:18),c(1,3,2)] %>%
gt() %>%
gt_highlight_rows(rows = c(2,3,5), font_weight = "normal") %>%
tab_header(
title = md("Uninsured Rates for the Nonelderly by Race/Ethnicity"),
subtitle = md("Year 2019")
)
| X |
Utah |
United.States |
| White |
7.7% |
7.8% |
| Black |
26.1% |
11.4% |
| Hispanic |
23.2% |
20.0% |
| Asian/Native Hawaiian and Pacific Islander |
11.9% |
7.4% |
| American Indian/Alaska Native |
36.7% |
21.7% |
| Multiple Races |
9.6% |
8.2% |
Uninsured Rates for the Nonelderly by Family Work Status
utath[c(27:29),c(1,3,2)] %>%
gt() %>%
gt_highlight_rows(rows = 2:3, font_weight = "normal") %>%
tab_header(
title = md("Uninsured Rates for the Nonelderly by Family Work Status"),
subtitle = md("Year 2019")
)
| X |
Utah |
United.States |
| At Least 1 Full Time Worker |
9.4% |
9.8% |
| Part Time Workers |
18.2% |
15.5% |
| Non Workers |
19.5% |
14.8% |