task-13634/plot.R

   1 require(ggplot2)
   2 c <- read.csv("cw-by-ver-date.csv")
   3 ggplot(c, aes(x = as.Date(date), y = cw, colour = version)) +
   4 geom_line() +
   5 scale_x_date("") +
   6 scale_y_continuous("") +
   7 ggtitle("Total consensus weight of running relays by version\n")
   8 ggsave("cw-by-ver.png", width = 8, height = 5, dpi = 100)
   9