commit ce2a876bc0dfc4ff5cc600ab74a1a52e57a41543 Author: Lunar lunar@torproject.org Date: Thu Mar 27 21:25:28 2014 +0100
Pie charts are better for response time graphs --- response-time/time-to-reply.R | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-)
diff --git a/response-time/time-to-reply.R b/response-time/time-to-reply.R index dcbf000..bb41cbd 100644 --- a/response-time/time-to-reply.R +++ b/response-time/time-to-reply.R @@ -27,11 +27,15 @@ data <- aggregate(list(requests = data$requests),
# Plot the data ggplot(data, - aes(x = month, # Month on the x axis + aes(x = factor(1), # Single value on x axis y = requests, # Number of requests on y axis fill = interval)) + # Different colours for response time -# Make a dodged bar chart -geom_bar(stat = "identity", position = "dodge") + +geom_bar( # Start with a bar plot + stat = "identity", # Make y represent values in the data + position = "fill", # Make all bars the same length + width = 1) + # Make all pies the same size +facet_grid(. ~ month) + # Make 1 chart per month +coord_polar(theta = "y") + # Change y coordinates for pie chart scale_x_discrete("") + # No x axis label scale_y_continuous("") + # No y axis label # No legend title @@ -39,5 +43,8 @@ scale_y_continuous("") + # No y axis label # http://vis.supstat.com/2013/04/plotting-symbols-and-color-palettes/ scale_fill_brewer("", palette = "Set2") + ggtitle("Time to respond to support requests per month\n") + -theme_bw() +theme_bw() + +theme(axis.text = element_blank(), # No tick labels + axis.ticks = element_blank(), # No ticks + panel.grid.major = element_blank()) # No axis lines ggsave(args[2], width = 8, height = 4, dpi = 100)