task-2772/torperf-bwscanners.R

   1 options(warn = -1)
   2 suppressPackageStartupMessages(library("ggplot2"))
   3
   4 a <- read.csv("torperf-stats.csv", stringsAsFactors = FALSE,
   5   header = TRUE)
   6 a <- a[a$source == "all-1mb",]
   7 ymax <- max(a$md, na.rm = TRUE) / 1e3
   8
   9 b <- read.csv("bwscanner-failures.csv", stringsAsFactors = FALSE,
  10   header = TRUE)
  11 b <- b[b$end >= min(a$date, na.rm = TRUE),]
  12 b[1,1] <- max(b[1,1], min(a$date, na.rm = TRUE))
  13
  14 ggplot(a, aes(x = as.Date(date), y = md/1e3)) +
  15
  16 geom_line(size = 0.5) +
  17
  18 scale_y_continuous(name = paste("Download time of 1 MB file over Tor",
  19   "in seconds\n")) +
  20
  21 scale_x_date(name = "") +
  22
  23 geom_rect(aes(NULL, NULL, xmin = as.Date(start), xmax = as.Date(end),
  24   ymin = -Inf, ymax = Inf, fill = TRUE), data = b) +
  25
  26 scale_fill_manual(name = "", breaks = TRUE,
  27   labels = "Bandwidth scanners failing", values = alpha("red2", 0.4)) +
  28
  29 opts(legend.position = "bottom")
  30
  31 ggsave(filename = "torperf-bwscanners.pdf", width = 8, height = 6)
  32