[tor-commits] [metrics-tasks/master] Add another introduction-point graph (#15513).

[karsten at torproject.org]

commit f8d2801f34b79b21a51a5ace7fb46ec08874fbcf
Author: Karsten Loesing <karsten.loesing at gmx.net>
Date:   Mon Apr 20 22:22:00 2015 +0200

    Add another introduction-point graph (#15513).
---
 task-15513/plot.R |   13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/task-15513/plot.R b/task-15513/plot.R
index f1ce9d3..26fc854 100644
--- a/task-15513/plot.R
+++ b/task-15513/plot.R
@@ -79,3 +79,16 @@ ggplot(data) +
   ggtitle(paste("Number of introduction points established on\nthe same",
     "relay (in the measurement period)\n"))
 
+l <- read.csv("intros-per-desc.csv")
+l <- aggregate(list(introsperdesc = l$introsperdesc), by = list(
+  publication = (l$publication %/% (1 * 3600 * 1000)) * (1 * 3600),
+  service = l$service), FUN = max)
+ggplot(l, aes(x = as.POSIXct(publication,
+    origin = "1970-01-01 00:00:00"), y = introsperdesc, fill = service)) +
+  geom_area() +
+  scale_fill_hue("", guide = "none") +
+  facet_grid(service ~ .) +
+  scale_x_datetime("") +
+  scale_y_continuous("") +
+  ggtitle("Number of introduction points over time\n")
+