#mydatavis

#this code was tested in # R version 3.0.0 (2013-04-03) -- "Masked Marvel" # Copyright (C) 2013 The R Foundation for Statistical Computing # Platform: i386-w64-mingw32/i386 (32-bit) getwd() # this is your working directory # setwd("") # you can set your personal working directory here getwd() # ------------------------------------------------------------------------------------------------ # # LOAD VOTES DATASETS from COMELEC's 16th canvass report (OFFICIAL TALLY) # Accessed from http://www.rappler.com/nation/politics/elections-2013/features/rich-media/29126-official-tally-votes-2013-senatorial-race # Retrieved May 23, 2013 4:30am data1 <- "http://dl.dropboxusercontent.com/u/7911075/election%202013%20csv/namebyregion.csv" download.file(data1, destfile="./datasets/namebyregion.csv") data2 <- "http://dl.dropboxusercontent.com/u/7911075/election%202013%20csv/namebyprovince.csv" download.file(data2, destfile="./datasets/namebyprovince.csv") data3 <- "http://dl.dropboxusercontent.com/u/7911075/election%202013%20csv/provincetotalbyname.csv" download.file(data3, destfile="./datasets/provincetotalbyname.csv") data4 <- "http://dl.dropboxusercontent.com/u/7911075/election%202013%20csv/regiontotalbyname.csv" download.file(data4, destfile="./datasets/regiontotalbyname.csv") list.files(".") dateDownloaded <-date() dateDownloaded byregion <- read.csv("./datasets/namebyregion.csv", header=TRUE) str(byregion) byprovince <- read.csv("./datasets/namebyprovince.csv", header=TRUE) str(byprovince) tprovince <- read.csv("./datasets/provincetotalbyname.csv", header=TRUE) str(tprovince) tregion <- read.csv("./datasets/regiontotalbyname.csv", header=TRUE) str(tregion) # ------------------------------------------------------------------------------------------------ # # LOAD COLOR PALETTES library(RColorBrewer) cols4v1 <- brewer.pal(5, "YlGnBu") pal4v1 <- colorRampPalette(cols4v1) # <- dark blue cyan white gradient cols4v2 <- brewer.pal(5, "YlOrBr") pal4v2 <- colorRampPalette(cols4v2) # <- brown orange white gradient cols4v3 <- brewer.pal(5, "PuRd") pal4v3 <- colorRampPalette(cols4v3) # <- purple pink white gradient cols4v4 <- brewer.pal(5, "RdPu") pal4v4 <- colorRampPalette(cols4v4) # <- violet pink white gradient cols8 <- brewer.pal(8, "Set3") pal8 <- colorRampPalette(cols8) cols12 <- brewer.pal(12, "Set3") pal12 <- colorRampPalette(cols12) # ------------------------------------------------------------------------------------------------ # # DRAW HEATMAPS FOR REGION row.names(byregion) <- byregion$X byregion <- byregion[,2:19] byregion_matrix <- data.matrix(byregion) regions_heatmap1 <- heatmap(byregion_matrix, Rowv=NA, Colv=NA, col = cm.colors(256), scale="column", margins=c(5,10)) # <-- pink, blue regions_heatmap2 <- heatmap(byregion_matrix, Rowv=NA, Colv=NA, col = heat.colors(256), scale="column", margins=c(5,10)) # <-- too much red regions_heatmap3 <- heatmap(byregion_matrix, Rowv=NA, Colv=NA, col = pal4v2(5), scale="column", margins=c(5,10)) # <-- yellow brown gradient regions_heatmap4 <- heatmap(byregion_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient regions_heatmap5 <- heatmap(byregion_matrix, Rowv=NA, Colv=NA, col = pal12(5), scale="column", margins=c(5,10)) # <- messy looking regions_heatmap6 <- heatmap(byregion_matrix, Rowv=NA, Colv=NA, col = pal4v4(5), scale="column", margins=c(5,10)) # <-- purle pink gradient # dev.copy2pdf(file="./output/votesperregion.pdf", height = 8, width = 11) # ------------------------------------------------------------------------------------------------ # # DRAW HEATMAPS PER PROVINCE str(byprovince) names(byprovince) # REGION 1 ------------------------------------------------------------------------------------------------ # for example, we take the provinces in region1 provincesregion1 <- byprovince[,33:37] provincesregion1$X <- byprovince$X str(provincesregion1) row.names(provincesregion1) <- provincesregion1$X provincesregion1 <- provincesregion1[,1:5] provincesregion1_matrix <- data.matrix(provincesregion1) #draw heatmap for provinces in region1 region1_heatmap <- heatmap(provincesregion1_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient dev.copy2pdf(file="./output/votesregion1.pdf", height = 8, width = 11) # REGION 2 ------------------------------------------------------------------------------------------------ # for example, we take the provinces in region2 provincesregion2 <- byprovince[,38:43] provincesregion2$X <- byprovince$X str(provincesregion2) row.names(provincesregion2) <- provincesregion2$X provincesregion2 <- provincesregion2[,1:6] provincesregion2_matrix <- data.matrix(provincesregion2) #draw heatmap for provinces in region2 region2_heatmap <- heatmap(provincesregion2_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votesregion2.pdf", height = 8, width = 11) # REGION 3 ------------------------------------------------------------------------------------------------ # for example, we take the provinces in region3 provincesregion3 <- byprovince[,44:51] provincesregion3$X <- byprovince$X str(provincesregion3) row.names(provincesregion3) <- provincesregion3$X provincesregion3 <- provincesregion3[,1:8] provincesregion3_matrix <- data.matrix(provincesregion3) #draw heatmap for provinces in region3 region3_heatmap <- heatmap(provincesregion3_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votesregion3.pdf", height = 8, width = 11) # REGION 4A ------------------------------------------------------------------------------------------------ # for example, we take the provinces in region4a provincesregion4a <- byprovince[,52:57] provincesregion4a$X <- byprovince$X str(provincesregion4a) row.names(provincesregion4a) <- provincesregion4a$X provincesregion4a <- provincesregion4a[,1:6] provincesregion4a_matrix <- data.matrix(provincesregion4a) #draw heatmap for provinces in region4a region4a_heatmap <- heatmap(provincesregion4a_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votesregion4a.pdf", height = 8, width = 11) # REGION4B ------------------------------------------------------------------------------------------------ # for example, we take the provinces in region4b provincesregion4b <- byprovince[,58:63] provincesregion4b$X <- byprovince$X str(provincesregion4b) row.names(provincesregion4b) <- provincesregion4b$X provincesregion4b <- provincesregion4b[,1:6] provincesregion4b_matrix <- data.matrix(provincesregion4b) #draw heatmap for provinces in region4b region4b_heatmap <- heatmap(provincesregion4b_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votesregion4b.pdf", height = 8, width = 11) # REGION5 ------------------------------------------------------------------------------------------------ # for example, we take the provinces in region5 provincesregion5 <- byprovince[,64:70] provincesregion5$X <- byprovince$X str(provincesregion5) row.names(provincesregion5) <- provincesregion5$X provincesregion5 <- provincesregion5[,1:7] provincesregion5_matrix <- data.matrix(provincesregion5) #draw heatmap for provinces in region5 region5_heatmap <- heatmap(provincesregion5_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votesregion5.pdf", height = 8, width = 11) # REGION6 ------------------------------------------------------------------------------------------------ # for example, we take the provinces in region6 provincesregion6 <- byprovince[,71:79] provincesregion6$X <- byprovince$X str(provincesregion6) row.names(provincesregion6) <- provincesregion6$X provincesregion6 <- provincesregion6[,1:9] provincesregion6_matrix <- data.matrix(provincesregion6) #draw heatmap for provinces in region6 region6_heatmap <- heatmap(provincesregion6_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votesregion6.pdf", height = 8, width = 11) # REGION7 ------------------------------------------------------------------------------------------------ # for example, we take the provinces in region7 provincesregion7 <- byprovince[,80:86] provincesregion7$X <- byprovince$X str(provincesregion7) row.names(provincesregion7) <- provincesregion7$X provincesregion7 <- provincesregion7[,1:7] provincesregion7_matrix <- data.matrix(provincesregion7) #draw heatmap for provinces in region7 region7_heatmap <- heatmap(provincesregion7_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votesregion7.pdf", height = 8, width = 11) # REGION8 ------------------------------------------------------------------------------------------------ # for example, we take the provinces in region8 provincesregion8 <- byprovince[,87:93] provincesregion8$X <- byprovince$X str(provincesregion8) row.names(provincesregion8) <- provincesregion8$X provincesregion8 <- provincesregion8[,1:7] provincesregion8_matrix <- data.matrix(provincesregion8) #draw heatmap for provinces in region8 region8_heatmap <- heatmap(provincesregion8_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votesregion8.pdf", height = 8, width = 11) # REGION9 ------------------------------------------------------------------------------------------------ # for example, we take the provinces in region9 provincesregion9 <- byprovince[,94:98] provincesregion9$X <- byprovince$X str(provincesregion9) row.names(provincesregion9) <- provincesregion9$X provincesregion9 <- provincesregion9[,1:5] provincesregion9_matrix <- data.matrix(provincesregion9) #draw heatmap for provinces in region9 region9_heatmap <- heatmap(provincesregion9_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votesregion9.pdf", height = 8, width = 11) # REGION10 ------------------------------------------------------------------------------------------------ # for example, we take the provinces in region10 provincesregion10 <- byprovince[,99:106] provincesregion10$X <- byprovince$X str(provincesregion10) row.names(provincesregion10) <- provincesregion10$X provincesregion10 <- provincesregion10[,1:7] provincesregion10_matrix <- data.matrix(provincesregion10) #draw heatmap for provinces in region10 region10_heatmap <- heatmap(provincesregion10_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votesregion10.pdf", height = 8, width = 11) # REGION11 ------------------------------------------------------------------------------------------------ # for example, we take the provinces in region11 provincesregion11 <- byprovince[,107:112] provincesregion11$X <- byprovince$X str(provincesregion11) row.names(provincesregion11) <- provincesregion11$X provincesregion11 <- provincesregion11[,1:6] provincesregion11_matrix <- data.matrix(provincesregion11) #draw heatmap for provinces in region11 region11_heatmap <- heatmap(provincesregion11_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votesregion11.pdf", height = 8, width = 11) # REGION12 ------------------------------------------------------------------------------------------------ # for example, we take the provinces in region12 provincesregion12 <- byprovince[,113:117] provincesregion12$X <- byprovince$X str(provincesregion12) row.names(provincesregion12) <- provincesregion12$X provincesregion12 <- provincesregion12[,1:5] provincesregion12_matrix <- data.matrix(provincesregion12) #draw heatmap for provinces in region12 region12_heatmap <- heatmap(provincesregion12_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votesregion12.pdf", height = 8, width = 11) # REGION13 CARAGA ------------------------------------------------------------------------------------------------ # for example, we take the provinces in region13 provincesregion13 <- byprovince[,10:15] provincesregion13$X <- byprovince$X str(provincesregion13) row.names(provincesregion13) <- provincesregion13$X provincesregion13 <- provincesregion13[,1:6] provincesregion13_matrix <- data.matrix(provincesregion13) #draw heatmap for provinces in region13 region13_heatmap <- heatmap(provincesregion13_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votesregion13.pdf", height = 8, width = 11) # NCR ------------------------------------------------------------------------------------------------ # for example, we take the provinces in ncr provincesncr <- byprovince[,16:32] provincesncr$X <- byprovince$X str(provincesncr) row.names(provincesncr) <- provincesncr$X provincesncr <- provincesncr[,1:17] provincesncr_matrix <- data.matrix(provincesncr) #draw heatmap for provinces in ncr ncr_heatmap <- heatmap(provincesncr_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votesncr.pdf", height = 8, width = 11) # CAR ------------------------------------------------------------------------------------------------ # for example, we take the provinces in car provincescar <- byprovince[,2:9] provincescar$X <- byprovince$X str(provincescar) row.names(provincescar) <- provincescar$X provincescar <- provincescar[,1:8] provincescar_matrix <- data.matrix(provincescar) #draw heatmap for provinces in car car_heatmap <- heatmap(provincescar_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votescar.pdf", height = 8, width = 11) # ARMM ------------------------------------------------------------------------------------------------ # for example, we take the provinces in armm provincesarmm <- byprovince[,118:123] provincesarmm$X <- byprovince$X str(provincesarmm) row.names(provincesarmm) <- provincesarmm$X provincesarmm <- provincesarmm[,1:6] provincesarmm_matrix <- data.matrix(provincesarmm) #draw heatmap for provinces in armm armm_heatmap <- heatmap(provincesarmm_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votesarmm.pdf", height = 8, width = 11) # OAV OVERSEAS ABSENTEE VOTING COUNTRIES ------------------------------------------------------------------------------------------------ # for example, we take the provinces in oav provincesoav <- byprovince[,124:146] provincesoav$X <- byprovince$X str(provincesoav) row.names(provincesoav) <- provincesoav$X provincesoav <- provincesoav[,1:23] provincesoav_matrix <- data.matrix(provincesoav) #draw heatmap for provinces in oav oav_heatmap <- heatmap(provincesoav_matrix, Rowv=NA, Colv=NA, col = pal4v1(5), scale="column", margins=c(5,10)) # <-- yellow blue gradient # dev.copy2pdf(file="./output/votesoav.pdf", height = 8, width = 11) # # --------------------------- # END OF CODE

improving antenatal care infographic

what is newborn screening infographic