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