SciFund Round 3 Round by Round Comparison

sciFundRoundByRound3.R

r3 <- c(0L, 3000L, 1765L, 8645L, 6225L, 805L, 600L, 203L, 115L, 85L, 
        2700L, 1210L, 3790L, 2210L, 2135L, 610L, 5180L, 840L, 2200L, 
        410L, 1440L, 3080L, 1280L, 1165L, 4040L, 1110L, 6585L, 3015L, 
        2651L, 290L, 1990L, 0L, 810L, 5004L, 790L)

r1 <- c(1165L, 1129L, 2835L, 1000L, 5000L, 1120L, 1266L, 2100L, 1330L, 
        420L, 1070L, 128L, 1120L, 220L, 1075L, 1170L, 825L, 3000L, 1104L, 
        210L, 122L, 151L, 490L, 4600L, 2483L, 265L, 1565L, 1545L, 4110L, 
        10171L, 1000L, 1240L, 899L, 1320L, 848L, 605L, 970L, 545L, 1815L, 
        515L, 5085L, 450L, 755L, 1170L, 250L, 3243L, 1305L, 715L, 711L
)

r2 <- c(105L, 1710L, 2065L, 2450L, 226L, 1812L, 470L, 1305L, 1202L, 
  30L, 2000L, 545L, 862L, 2701L, 2675L, 535L, 322L, 2026L, 2650L, 
  625L, 540L, 1231L, 5688L, 1500L, 1854L, 1256L, 4480L, 1000L, 
  1046L, 1601L, 1031L, 716L, 243L, 180L, 2535L, 1000L, 2389L, 71L, 
  1930L, 116L, 539L, 1002L, 730L, 77L, 730L, 975L, 2040L, 5001L, 
  2125L, 550L, 344L, 500L, 1912L, 1101L, 900L, 940L, 681L, 1779L, 
  728L, 2048L, 3525L, 2102L, 1118L, 611L, 260L, 1970L, 1205L, 38L, 
  220L, 235L, 1320L, 1535L, 3282L, 257L, 1500L)


all<-c(r1, r2, r3)
length(all)
sum(all)
mean(all)
median(all)

mean(r1)
mean(r1)/45
median(r1)
median(r1)/45


mean(r2)
mean(r2)/31
median(r2)
median(r2)/31

mean(r3)
mean(r3)/33
median(r3)
median(r3)/33


allcorrect<-data.frame(round = c(rep(1, length(r1)), rep(2,length(r2)), rep(3, length(r3))), 
                       daily = c(r1/45, r2/31, r3/33),
                       total = c(r1, r2, r3))

allcorrect$round <- factor(allcorrect$round)
library(ggplot2)

qplot(round, daily, fill=round, data=allcorrect, geom="boxplot") +
  xlab("\nRound") + ylab("$ Raised Daily\n")
ggsave("./scifund_avg.pdf")


qplot(round, total, fill=round, data=allcorrect, geom="boxplot") +
  xlab("\nRound") + ylab("$ Raised Total\n")
ggsave("./scifund_total.pdf")