Heatmaps

The maps will be centered and clearer if you click on them.

Challenges to Sustainable Development in Mississippi

setwd('C:/Users/User/Documents/DeltaState/NIH')

mshealth <- read.csv(file = "MSHealth2.csv")

head(mshealth)

row.names(mshealth) <- mshealth$County

mshealth <- mshealth[,2:21]

mshealth_matrix <- data.matrix(mshealth)

library(RColorBrewer)

mshealth_heatmap <- heatmap(mshealth_matrix, Rowv=NA, Colv=NA, col = brewer.pal(9, "Reds"), scale="column", margins=c(9,8))

Medicare Beneficiaries in Mississippi by County

setwd('C:/Users/User/Documents/DeltaState/NIH')

medicare <- read.csv(file = "Medicare2.csv")

head(medicare)

row.names(medicare) <- medicare$County

medicare <- medicare[,2:19]

medicare_matrix <- data.matrix(medicare)

library(RColorBrewer)

medicare_heatmap <- heatmap(medicare_matrix, Rowv=NA, Colv=NA, col = brewer.pal(9, "Reds"), scale="column", margins=c(7,8))