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))
Medical Tourism - Major Destinations (Source: http://hdr.undp.org/en/data)
setwd('C:/Users/User/Documents/MSPA/PRE490/Data')
medical.tourism <- read.csv(file = "MedicalTourism.csv")
medical.tourism <- medical.tourism[which(medical.tourism$select==1), ]
head(medical.tourism)
medical.tourism <- medical.tourism[order(medical.tourism$Healthcare_Satisfaction),]
row.names(medical.tourism) <- medical.tourism$Country
medical.tourism <- medical.tourism[,2:13]
mt_matrix <- data.matrix(medical.tourism)
library(RColorBrewer)
mt_heatmap <- heatmap(mt_matrix, Rowv=NA, Colv=NA, col = brewer.pal(9, "Reds"),
cexRow=1.8, cexCol=1.8, scale="column", margins=c(25,10))
2013 NFL Standings (Source: http://www.pro-football-reference.com/years/2013/)
setwd('C:/Users/User/Documents/MSPA/PRE498/Data')
nfl <- read.csv(file = "NFLStanding2013.csv")
head(nfl)
nfl <- nfl[order(nfl$Pts),]
row.names(nfl) <- nfl$Tm
nfl <- nfl[,2:13]
nfl_matrix <- data.matrix(nfl)
library(RColorBrewer)
nfl_heatmap <- heatmap(nfl_matrix, Rowv=NA, Colv=NA, col = brewer.pal(9, "Reds"), scale="column", margins=c(5,10))