task-7241/plot.R

   1 require(ggplot2)
   2 data <- read.csv("s2012.csv", header=TRUE)
   3
   4 # frac_relays
   5 p <- ggplot(data, aes(factor(hours), frac_relays))
   6 p + geom_boxplot() + ylab("frac_relays") + xlab("time interval") + ggtitle(2012)
   7 ggsave("2012_frac_relays.png", height=6, width=6)
   8
   9 # frac_cw
  10 p <- ggplot(data, aes(factor(hours), frac_cw))
  11 p + geom_boxplot() + ylab("frac_cw") + xlab("time interval") + ggtitle(2012)
  12 ggsave("2012_frac_cw.png", height=6, width=6)
  13