task-3276/onion-key-lifetimes.R

   1 library(ggplot2)
   2 data <- read.csv("onion-key-lifetimes.csv",
   3   col.names = c("fingerprint", "start", "end", "length"),
   4   stringsAsFactors = FALSE)
   5 print(data[data$length >= 10 * 24 * 60 * 60, ])
   6 data <- sort(data$length)
   7 data <- data.frame(x = data / (24 * 60 * 60), y = 1:length(data))
   8 ggplot(data, aes(x = x, y = y)) +
   9 geom_line() +
  10 scale_y_continuous("Cumulative number of onion keys\n") +
  11 scale_x_continuous(paste("\nTime between first and last publication of",
  12   "the same onion key in May 2011 in days"))
  13 ggsave(filename = "onion-key-lifetimes.png", width = 8, height = 5,
  14   dpi = 72)
  15