commit 1b4dbaea54d4e32ab89cc1d860ca54db2b7bf5d7 Author: Karsten Loesing <karsten.loesing@gmx.net> Date: Thu Jul 26 11:32:46 2012 +0200 Tweak asn's #6232 graph a bit. --- task-6232/plot-entropy.R | 8 +++----- 1 files changed, 3 insertions(+), 5 deletions(-) diff --git a/task-6232/plot-entropy.R b/task-6232/plot-entropy.R index abcd808..1f41824 100644 --- a/task-6232/plot-entropy.R +++ b/task-6232/plot-entropy.R @@ -54,7 +54,6 @@ 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, @@ -71,10 +70,9 @@ g <- rbind( g <- melt(g, c("date", "type")) ggplot(g, aes(x = date, y = value, colour = variable)) + geom_line() + -facet_wrap(~ type) + +facet_grid(type ~ ., scales = "free_y") + scale_x_date(name = "\nDate") + -scale_y_continuous(name = "Number of relays and Number of fair relays\n", - limits = c(0, max(g$value))) + +scale_y_continuous(name = "Number of relays and number of fair relays\n") + opts(legend.position = "none") -ggsave("relays_fair.png", width = 8, height = 6, dpi = 100) +ggsave("relays-fair.png", width = 8, height = 6, dpi = 100)