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
Cases of Cancer
Deaths from Cancer
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