task-4142/delay.R

   1 library(ggplot2)
   2 d <- read.csv("delay.csv")
   3 d <- data.frame(published = d$published,
   4   dirreqstatsend = d$dirreqstatsend,
   5   delay = as.POSIXlt(d$published) - as.POSIXlt(d$dirreqstatsend))
   6 m <- mean(as.numeric(d$delay)) / (60 * 60)
   7 ggplot(d, aes(x = as.numeric(delay) / (60 * 60))) +
   8 geom_histogram(binwidth = 1, fill = "purple2",
   9   colour = alpha("white", 0.5)) +
  10 scale_x_continuous(name = paste("\nDelay between finishing a",
  11  "dirreq-stats interval and first publishing its results",
  12  "(red line = mean value)"), minor_breaks = 1) +
  13 scale_y_continuous(name = "Number of finished dirreq-stats intervals\n") +
  14 geom_vline(xintercept = m, colour = "red", size = 1.5) +
  15 ggsave("delay.png", width = 8, height = 5, dpi = 100)
  16