Load Libraries
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──
## ✔ ggplot2 3.3.6 ✔ purrr 0.3.4
## ✔ tibble 3.1.7 ✔ stringr 1.4.0
## ✔ tidyr 1.2.0 ✔ forcats 0.5.1
## ✔ readr 2.1.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
##
## Attaching package: 'kableExtra'
## The following object is masked from 'package:dplyr':
##
## group_rows
Create Table
DataCases <- read.csv("uscs_map_incidence_all.csv")
DataDeaths <- read.csv("uscs_map_death_all.csv")
Data <- cbind(DataCases[1:3],
DataDeaths[2:3])
colnames(Data) <- c("State",
"Minimum to Maximum",
"Rate",
"Minimum to Maximum",
"Rate")
Table <- Data %>%
kable(align = "l") %>%
add_header_above(c("", "Cases of Cancer" = 2, "Deaths from Cancer" = 2)) %>%
kable_styling(full_width = FALSE,
font_size = 18,
html_font = "timesnewroman",
fixed_thead = TRUE)
Table
State | Minimum to Maximum | Rate | Minimum to Maximum | Rate |
---|---|---|---|---|
AK | 369.9 to 416.5 | 406.6 | 164.2 to 174.4 | 173.1 |
AL | 420.4 to 445.7 | 437.9 | 174.5 to 199.3 | 182.1 |
AR | 447.0 to 461.0 | 456.2 | 174.5 to 199.3 | 189.6 |
AZ | 369.9 to 416.5 | 379.8 | 127.9 to 155.3 | 146.4 |
CA | 369.9 to 416.5 | 399.6 | 127.9 to 155.3 | 146.6 |
CO | 369.9 to 416.5 | 395.8 | 127.9 to 155.3 | 139.2 |
CT | 462.1 to 513.7 | 467.0 | 127.9 to 155.3 | 147.8 |
DC | 420.4 to 445.7 | 442.4 | 174.5 to 199.3 | 177.7 |
DE | 462.1 to 513.7 | 488.1 | 164.2 to 174.4 | 167.1 |
FL | 369.9 to 416.5 | 410.0 | 127.9 to 155.3 | 154.9 |
GA | 447.0 to 461.0 | 453.4 | 164.2 to 174.4 | 168.1 |
HI | 369.9 to 416.5 | 406.0 | 127.9 to 155.3 | 134.9 |
IA | 462.1 to 513.7 | 471.9 | 164.2 to 174.4 | 168.2 |
ID | 420.4 to 445.7 | 420.4 | 155.4 to 164.1 | 156.3 |
IL | 447.0 to 461.0 | 460.4 | 164.2 to 174.4 | 171.7 |
IN | 420.4 to 445.7 | 435.8 | 174.5 to 199.3 | 179.4 |
KS | 447.0 to 461.0 | 449.1 | 155.4 to 164.1 | 162.9 |
KY | 462.1 to 513.7 | 513.7 | 174.5 to 199.3 | 199.3 |
LA | 462.1 to 513.7 | 478.7 | 174.5 to 199.3 | 188.7 |
MA | 447.0 to 461.0 | 453.8 | 155.4 to 164.1 | 159.7 |
MD | 420.4 to 445.7 | 439.5 | 155.4 to 164.1 | 163.0 |
ME | 462.1 to 513.7 | 474.6 | 174.5 to 199.3 | 174.8 |
MI | 420.4 to 445.7 | 437.3 | 164.2 to 174.4 | 170.2 |
MN | 447.0 to 461.0 | 457.7 | 127.9 to 155.3 | 155.1 |
MO | 447.0 to 461.0 | 447.0 | 174.5 to 199.3 | 179.1 |
MS | 462.1 to 513.7 | 462.1 | 174.5 to 199.3 | 196.5 |
MT | 420.4 to 445.7 | 431.2 | 127.9 to 155.3 | 154.0 |
NC | 447.0 to 461.0 | 448.8 | 164.2 to 174.4 | 167.7 |
ND | 420.4 to 445.7 | 431.4 | 127.9 to 155.3 | 150.8 |
NE | 420.4 to 445.7 | 443.6 | 155.4 to 164.1 | 160.7 |
NH | 462.1 to 513.7 | 464.2 | 155.4 to 164.1 | 158.6 |
NJ | 462.1 to 513.7 | 472.8 | 155.4 to 164.1 | 156.0 |
NM | 369.9 to 416.5 | 369.9 | 127.9 to 155.3 | 145.1 |
NV | 369.9 to 416.5 | 374.9 | 164.2 to 174.4 | 164.9 |
NY | 462.1 to 513.7 | 476.5 | 155.4 to 164.1 | 155.5 |
OH | 447.0 to 461.0 | 452.1 | 174.5 to 199.3 | 177.4 |
OK | 420.4 to 445.7 | 442.0 | 174.5 to 199.3 | 185.4 |
OR | 369.9 to 416.5 | 409.6 | 155.4 to 164.1 | 163.2 |
PA | 462.1 to 513.7 | 477.3 | 164.2 to 174.4 | 170.0 |
RI | 462.1 to 513.7 | 469.8 | 164.2 to 174.4 | 173.9 |
SC | 420.4 to 445.7 | 433.3 | 164.2 to 174.4 | 174.0 |
SD | 447.0 to 461.0 | 450.1 | 127.9 to 155.3 | 154.1 |
TN | 420.4 to 445.7 | 445.7 | 174.5 to 199.3 | 185.4 |
TX | 369.9 to 416.5 | 402.2 | 155.4 to 164.1 | 156.9 |
UT | 369.9 to 416.5 | 396.0 | 127.9 to 155.3 | 127.9 |
VA | 369.9 to 416.5 | 416.5 | 155.4 to 164.1 | 162.3 |
VT | 447.0 to 461.0 | 447.2 | 155.4 to 164.1 | 164.1 |
WA | 420.4 to 445.7 | 442.1 | 155.4 to 164.1 | 156.3 |
WI | 447.0 to 461.0 | 459.0 | 164.2 to 174.4 | 164.6 |
WV | 447.0 to 461.0 | 461.0 | 174.5 to 199.3 | 190.5 |
WY | 369.9 to 416.5 | 399.6 | 127.9 to 155.3 | 147.7 |