# Raw data
DTP <- matrix(c(42, 350, 3, 150, 863, 13604, 164, 13592, 130, 8810, 30, 5924,
761, 60000, 8, 42674, 107, 89459, 0, 26916, 7849, 106068, 151, 50333, 605,
20012, 15, 22973, 604, 8395, 14, 6917, 66, 9075, 2, 5685, 900, 5859, 100,
2263, 773, 16760, 114, 39325, 25, 5309, 1, 29050, 4024, 39737, 990, 36640,
219, 12917, 85, 16499), ncol = 28, nrow = 2)
rownames(DTP) <- c("Deaths from YF", "Population")
barplot(DTP, main = "Deaths compared to total population")
St. Marys 1808-Whites, St. Mary's 1808-Blacks, New Orleans 1820-Whites, New Orleans 1820-Blacks, Norfolk 1828-Whites, Norfolk 1828-Blacks, New Orleans 1849-Whites, New Orleans 1849-Blacks, 'New Orleans 1850-Whites, New Orleans 1850- Blacks, New Orleans 1853-Whites, New Orleans 1853-Blacks, Charleston 1854-Whites, Charleston 1854-Blacks, Norfolk 1855- Whites, Norfolk 1855- Blacks, Portsmouth 1855- Whites, Portsmouth 1855- Blacks', Savannah 1876-Whites', 'Savannah 1876-Blacks', 'Port Royal 1877- Whites', 'Port Royal 1877- Blacks', 'Memphis 1878- Whites', 'Memphis 1878- Blacks', 'Holly Springs 1878-Whites', 'Holly Springs 1878-Blacks