[tor-commits] [metrics-tasks/master] Graph comparison between the current Tor network and an ideal Tor network.

[karsten at torproject.org]

commit 131f94f6a424301daa126a80aa4285343113b978
Author: George Kadianakis <desnacked at riseup.net>
Date:   Wed Jul 25 17:19:50 2012 +0300

    Graph comparison between the current Tor network and an ideal Tor network.
---
 task-6232/plot-entropy.R |   24 ++++++++++++++++++++++++
 1 files changed, 24 insertions(+), 0 deletions(-)

diff --git a/task-6232/plot-entropy.R b/task-6232/plot-entropy.R
index 0ed4bac..abcd808 100644
--- a/task-6232/plot-entropy.R
+++ b/task-6232/plot-entropy.R
@@ -54,3 +54,27 @@ scale_y_continuous(name = "Entropy and maximum entropy\n",
 opts(legend.position = "none")
 ggsave("entropy.png", width = 8, height = 6, dpi = 100)
 
+
+g <- aggregate(list(all = d$all, max_all = d$max_all, exit = d$exit,
+  max_exit = d$max_exit, guard = d$guard, max_guard = d$max_guard,
+  country = d$country, max_country = d$max_country, as = d$as,
+  max_as = d$max_as),
+  by = list(date = as.Date(d$validafter, origin = "1970-01-01 00:00:00")),
+  FUN = median)
+g <- rbind(
+  data.frame(date = g$date, entropy = 2^g$all, max = 2^g$max_all,
+    type = "All relays"),
+  data.frame(date = g$date, entropy = 2^g$exit, max = 2^g$max_exit,
+    type = "All exits"),
+  data.frame(date = g$date, entropy = 2^g$guard, max = 2^g$max_guard,
+    type = "All guards"))
+g <- melt(g, c("date", "type"))
+ggplot(g, aes(x = date, y = value, colour = variable)) +
+geom_line() +
+facet_wrap(~ type) +
+scale_x_date(name = "\nDate") +
+scale_y_continuous(name = "Number of relays and Number of fair relays\n",
+  limits = c(0, max(g$value))) +
+opts(legend.position = "none")
+ggsave("relays_fair.png", width = 8, height = 6, dpi = 100)
+