hw1

Lanxiang_Li-caroline

1. read data

setwd("~/Desktop/qmssviz/Lab1")
dd <- read.csv("Donation-Disease.csv")

2. draw charts

scatter diagram

library(ggplot2)
qplot(x = Name, y = Death, data = dd, color = Name)

plot of chunk unnamed-chunk-2

library(ggplot2)
qplot(x = Name, y = MoneyRaised, data = dd, color = Name)

plot of chunk unnamed-chunk-3

library(ggplot2)
p <- ggplot(data = dd, mapping = aes(x = Death, y = MoneyRaised))
p + geom_point()

plot of chunk unnamed-chunk-4

library(ggplot2)
ggplot(dd, aes(x=Death, y=MoneyRaised)) +
geom_point(shape=1)

plot of chunk unnamed-chunk-5

library(ggplot2)
ggplot(dd, aes(x=Death, y=MoneyRaised)) +
geom_point (shape=1) +
geom_smooth(method=lm)

plot of chunk unnamed-chunk-6 #### pie chart

library(ggplot2)
par(mar=c(8,8,8,8),font=4)
pct <- round (dd$MoneyRaised/sum(dd$MoneyRaised)*100)
lbls<- paste(dd$Name, " ",pct, "%", sep="")
pie(dd$MoneyRaised, labels=lbls,col=rainbow(length(lbls)), main="pie chart of MoneyRaised")

plot of chunk unnamed-chunk-7

library(ggplot2)
par(mar=c(8,8,8,8),font=4)
pct <- round (dd$Death/sum(dd$Death)*100)
lbls<- paste(dd$Name, " ",pct, "%", sep="")
pie(dd$Death, labels=lbls,col=rainbow(length(lbls)), main="pie chart of Death")

plot of chunk unnamed-chunk-8