[tor-commits] [metrics-tasks/master] Add another log/log graph (#1854).

[karsten at torproject.org]

commit b3aab7b0745d62c6325fa88efe1ec7c6a5655a22
Author: Karsten Loesing <karsten.loesing at gmx.net>
Date:   Mon Nov 26 15:08:43 2012 -0500

    Add another log/log graph (#1854).
---
 task-1854/plot-entropy.R |   11 +++++++++++
 1 files changed, 11 insertions(+), 0 deletions(-)

diff --git a/task-1854/plot-entropy.R b/task-1854/plot-entropy.R
index 735e65f..34635e3 100644
--- a/task-1854/plot-entropy.R
+++ b/task-1854/plot-entropy.R
@@ -17,6 +17,17 @@ scale_y_continuous(name = "") +
 opts(title = paste("Consensus with valid-after time ", max(e$validafter),
   "\n", sep = ""))
 
+l <- e[e$graph == 'last', ]
+l <- data.frame(x = l$min_adv_bw, relays = l$relays, linf = l$linf)
+l <- melt(l, "x")
+ggplot(l, aes(x = x, y = value)) +
+geom_line() +
+facet_grid(variable ~ ., scales = "free_y") +
+scale_x_log10(name = "\nAdvertised bandwidth cutoff in B/s (log scale)") +
+scale_y_log10(name = "Number of relays or linf (log scale)") +
+opts(title = paste("Consensus with valid-after time ", max(e$validafter),
+  "\n", sep = ""))
+
 l <- e[e$graph == 'last' & e$min_adv_bw >= 10000 & e$min_adv_bw <= 100000, ]
 l <- data.frame(x = l$min_adv_bw, relays = l$relays, linf = l$linf)
 l <- melt(l, "x")