1. ggplot2

setwd("F:/R-3.1.1/github/qmssviz/hw1/_posts")
d <- read.csv("Donation-Disease.csv")
library(ggplot2)
opar <- par(no.readonly=TRUE)
par(font=4)
qplot(Name, Death, data = d, color = Name, geom = c("point"), xlab = "Disease", ylab = "Death", main="Total Death plot")

plot of chunk unnamed-chunk-1

qplot(Name, MoneyRaised, data = d, color = Name, geom = c("point"), xlab = "Disease", ylab = "Donation", main="Total Donation plot")

plot of chunk unnamed-chunk-1

par(opar)

2.3D pie chart

library(plotrix)
opar <- par(no.readonly=TRUE)
par(mar=c(1,1,1,1), font=4)
pct <- round(d$Death / sum(d$Death)*100)
lbls <- paste(d$Name, " ", pct, "%", sep="")
pie3D(d$Death,labels=lbls, explode=0.1, labelcex=0.5, start=0, col=c("red","blue","brown","green","orange","yellow","pink","purple"), main="Death pie chart")

plot of chunk unnamed-chunk-2

par(mar=c(1,1,1,1), font=4)
pct <- round(d$MoneyRaised / sum(d$MoneyRaised)*100)
lbls <- paste(d$Name, " ", pct, "%", sep="")
pie3D(d$MoneyRaised,labels=lbls, explode=0.1, labelcex=0.7, start=0, col=c("red","blue","brown","green","orange","yellow","pink","purple"), main="Death pie chart")

plot of chunk unnamed-chunk-2

par(opar)

3. dot chart

opar <- par(no.readonly=TRUE)
nvar=d$MoneyRaised / d$Death * 1000
par(font=4)
lab_disease=c("Heart Disease","Suicide","Breast Cancer","Diabetes","HIV/AIDS","Prostate Cancer","Motor Neuron Disease (inc ALS)","Chronic Obstructive Pulmonary")
dotchart(nvar, cex=0.7, col=c("red","blue","brown","green","orange","yellow","pink","purple"),labels=(lab_disease), pch=19, main="Donation per Death dot chart")

plot of chunk unnamed-chunk-3

par(opar)