[tor-commits] [metrics-web/release] Stop using y axis labels.

[karsten at torproject.org]

commit 47427b9d4fecbdeb0b22e6c39a2aa2656e3d14c1
Author: Karsten Loesing <karsten.loesing at gmx.net>
Date:   Tue Feb 13 14:36:11 2018 +0100

    Stop using y axis labels.
    
    In most, if not all, cases it's obvious from the graph title what
    we're plotting on the y axis. The main reason why we had a y axis name
    was to include the unit. But we can as well add the unit to the
    labels, similar to what we're already doing with percent. This saves
    more room for the plot area, and it's easier to read.
---
 src/main/R/rserver/graphs.R | 40 +++++++++++++++++++---------------------
 1 file changed, 19 insertions(+), 21 deletions(-)

diff --git a/src/main/R/rserver/graphs.R b/src/main/R/rserver/graphs.R
index a597746..fffe7c4 100644
--- a/src/main/R/rserver/graphs.R
+++ b/src/main/R/rserver/graphs.R
@@ -320,10 +320,7 @@ theme_update(
 
   # Leave some room between plot and x axis label, which we use for the
   # copyright notice.
-  axis.title.x = element_text(margin = margin(t = 11)),
-
-  # Leave some room between plot and y axis label.
-  axis.title.y = element_text(margin = margin(r = 11))
+  axis.title.x = element_text(margin = margin(t = 11))
 )
 
 # Set the default line size of geom_line() to 1.
@@ -429,7 +426,8 @@ plot_bandwidth <- function(start, end, path) {
     geom_line() +
     scale_x_date(name = copyright_notice, breaks = custom_breaks,
       labels = custom_labels, minor_breaks = custom_minor_breaks) +
-    scale_y_continuous(name = "Bandwidth (Gbit/s)", limits = c(0, NA)) +
+    scale_y_continuous(name = "", labels = unit_format(unit = "Gbit/s"),
+      limits = c(0, NA)) +
     scale_colour_hue(name = "", h.start = 90,
         breaks = c("bwadv", "bwhist"),
         labels = c("Advertised bandwidth", "Bandwidth history")) +
@@ -468,7 +466,8 @@ plot_bwhist_flags <- function(start, end, path) {
     geom_line() +
     scale_x_date(name = copyright_notice, breaks = custom_breaks,
       labels = custom_labels, minor_breaks = custom_minor_breaks) +
-    scale_y_continuous(name="Bandwidth (Gbit/s)", limits = c(0, NA)) +
+    scale_y_continuous(name = "", labels = unit_format(unit = "Gbit/s"),
+      limits = c(0, NA)) +
     scale_colour_manual(name = "",
         values = c("#E69F00", "#56B4E9", "#009E73", "#0072B2")) +
     ggtitle("Bandwidth history by relay flags") +
@@ -489,7 +488,8 @@ plot_dirbytes <- function(start, end, path) {
     geom_line() +
     scale_x_date(name = copyright_notice, breaks = custom_breaks,
       labels = custom_labels, minor_breaks = custom_minor_breaks) +
-    scale_y_continuous(name="Bandwidth (Gbit/s)", limits = c(0, NA)) +
+    scale_y_continuous(name = "", labels = unit_format(unit = "Gbit/s"),
+      limits = c(0, NA)) +
     scale_colour_hue(name = "",
         breaks = c("dirwrite", "dirread"),
         labels = c("Written dir bytes", "Read dir bytes")) +
@@ -698,7 +698,8 @@ plot_bandwidth_flags <- function(start, end, path) {
     geom_line() +
     scale_x_date(name = copyright_notice, breaks = custom_breaks,
       labels = custom_labels, minor_breaks = custom_minor_breaks) +
-    scale_y_continuous(name="Bandwidth (Gbit/s)", limits = c(0, NA)) +
+    scale_y_continuous(name = "", labels = unit_format(unit = "Gbit/s"),
+      limits = c(0, NA)) +
     scale_colour_manual(name = "",
         values = c("#E69F00", "#D6C827", "#009E73", "#00C34F")) +
     ggtitle(paste("Advertised bandwidth and bandwidth history by",
@@ -895,8 +896,8 @@ plot_advbwdist_perc <- function(start, end, p, path) {
     geom_line() +
     scale_x_date(name = copyright_notice, breaks = custom_breaks,
       labels = custom_labels, minor_breaks = custom_minor_breaks) +
-    scale_y_continuous(name = "Advertised bandwidth in Gbit/s",
-        limits = c(0, NA)) +
+    scale_y_continuous(name = "", labels = unit_format(unit = "Gbit/s"),
+      limits = c(0, NA)) +
     scale_colour_hue(name = "Percentile",
         breaks = rev(levels(t$percentile))) +
     ggtitle("Advertised bandwidth distribution")
@@ -916,8 +917,8 @@ plot_advbwdist_relay <- function(start, end, n, path) {
     geom_line() +
     scale_x_date(name = copyright_notice, breaks = custom_breaks,
       labels = custom_labels, minor_breaks = custom_minor_breaks) +
-    scale_y_continuous(name = "Advertised bandwidth in Gbit/s",
-        limits = c(0, NA)) +
+    scale_y_continuous(name = "", labels = unit_format(unit = "Gbit/s"),
+      limits = c(0, NA)) +
     scale_colour_hue(name = "n", breaks = levels(t$relay)) +
     ggtitle("Advertised bandwidth of n-th fastest relays")
   ggsave(filename = path, width = 8, height = 5, dpi = 150)
@@ -999,8 +1000,7 @@ plot_webstats_tb <- function(start, end, path) {
     facet_grid(request_type ~ ., scales = "free_y") +
     scale_x_date(name = copyright_notice, breaks = custom_breaks,
       labels = custom_labels, minor_breaks = custom_minor_breaks) +
-    scale_y_continuous(name = 'Requests per day', labels = formatter,
-        limits = c(0, NA)) +
+    scale_y_continuous(name = "", labels = formatter, limits = c(0, NA)) +
     theme(strip.text.y = element_text(angle = 0, hjust = 0, size = rel(1.5)),
           strip.background = element_rect(fill = NA)) +
     ggtitle("Tor Browser downloads and updates")
@@ -1018,8 +1018,7 @@ plot_webstats_tb_platform <- function(start, end, path) {
     geom_line() +
     scale_x_date(name = copyright_notice, breaks = custom_breaks,
       labels = custom_labels, minor_breaks = custom_minor_breaks) +
-    scale_y_continuous(name = 'Requests per day', labels = formatter,
-        limits = c(0, NA)) +
+    scale_y_continuous(name = "", labels = formatter, limits = c(0, NA)) +
     scale_colour_hue(name = "Platform",
         breaks = c("w", "m", "l", "o", ""),
         labels = c("Windows", "macOS", "Linux", "Other", "Unknown")) +
@@ -1044,8 +1043,7 @@ plot_webstats_tb_locale <- function(start, end, path) {
     geom_line() +
     scale_x_date(name = copyright_notice, breaks = custom_breaks,
       labels = custom_labels, minor_breaks = custom_minor_breaks) +
-    scale_y_continuous(name = 'Requests per day', labels = formatter,
-        limits = c(0, NA)) +
+    scale_y_continuous(name = "", labels = formatter, limits = c(0, NA)) +
     scale_colour_hue(name = "Locale",
         breaks = c(e$locale, "(other)"),
         labels = c(e$locale, "Other")) +
@@ -1069,8 +1067,7 @@ plot_webstats_tm <- function(start, end, path) {
     facet_grid(request_type ~ ., scales = "free_y") +
     scale_x_date(name = copyright_notice, breaks = custom_breaks,
       labels = custom_labels, minor_breaks = custom_minor_breaks) +
-    scale_y_continuous(name = 'Requests per day', labels = formatter,
-        limits = c(0, NA)) +
+    scale_y_continuous(name = "", labels = formatter, limits = c(0, NA)) +
     theme(strip.text.y = element_text(angle = 0, hjust = 0, size = rel(1.5)),
           strip.background = element_rect(fill = NA)) +
     ggtitle("Tor Messenger downloads and updates")
@@ -1162,7 +1159,8 @@ plot_advbw_ipv6 <- function(start, end, path) {
     geom_line() +
     scale_x_date(name = copyright_notice, breaks = custom_breaks,
       labels = custom_labels, minor_breaks = custom_minor_breaks) +
-    scale_y_continuous(name = "Bandwidth (Gbit/s)", limits = c(0, NA)) +
+    scale_y_continuous(name = "", labels = unit_format(unit = "Gbit/s"),
+      limits = c(0, NA)) +
     scale_colour_hue(name = "", h.start = 90,
       breaks = c("total", "total_guard", "total_exit", "reachable_guard",
         "reachable_exit", "exiting"),