commit b3aab7b0745d62c6325fa88efe1ec7c6a5655a22 Author: Karsten Loesing <karsten.loesing@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")