[tor-commits] [metrics-tasks/master] Use shades of gray instead of dashed/dotted lines (#4255).

[karsten at torproject.org]

commit 224e9ca924e73bf2c673ce5a8d1f3476bf1147de
Author: Karsten Loesing <karsten.loesing at gmx.net>
Date:   Mon Jul 30 14:23:59 2012 +0200

    Use shades of gray instead of dashed/dotted lines (#4255).
---
 task-4255/stability.R |   18 +++++++++---------
 1 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/task-4255/stability.R b/task-4255/stability.R
index b4f162e..e4c6d8f 100644
--- a/task-4255/stability.R
+++ b/task-4255/stability.R
@@ -132,17 +132,17 @@ d <- rbind(d,
   perc10wfu0wfu0wmtbac = NA, perc10wfu0wfu50wmtbac = NA,
   perc10wfu50wfu0wmtbac = NA, perc10wfu50wfu50wmtbac = NA))
 d <- melt(d, id = "date")
-ggplot(d, aes(x = date, y = value / 10000, linetype = variable)) +
+ggplot(d, aes(x = date, y = value / 10000, colour = variable)) +
 geom_line() +
 scale_y_continuous(name = paste("10th perc.   \nWFU in   \n",
   "the future   ", sep = ""), labels = percent, limits = c(0, 1)) +
 scale_x_date("", breaks = "3 months", minor_breaks = "1 month",
   labels = date_format("%b %Y")) +
-scale_linetype_manual(name = paste("Requirements for\nconsidering",
+scale_colour_manual(name = paste("Requirements for\nconsidering",
   "a\nbridge as stable\n"), breaks = c("perc10wfu50wfu50wmtbac",
   "perc10wfu50wfu0wmtbac", "perc10wfu0wfu50wmtbac",
   "perc10wfu0wfu0wmtbac"), labels = c("WFU & WMTBAC", "WFU", "WMTBAC",
-  "None"), values = c(1, 3, 2, 4)) +
+  "None"), values = c("black", "grey60", "grey80", "grey45")) +
 opts(plot.title = theme_text(size = 14 * 0.8, face = "bold"),
   axis.title.x = theme_text(size = 12 * 0.8, face = "bold",
   hjust = 0.5),
@@ -162,7 +162,7 @@ d <- rbind(d,
   perc10tosa0wfu0wmtbac = NA, perc10tosa0wfu50wmtbac = NA,
   perc10tosa50wfu0wmtbac = NA, perc10tosa50wfu50wmtbac = NA))
 d <- melt(d, id = "date")
-ggplot(d, aes(x = date, y = value / 86400, linetype = variable)) +
+ggplot(d, aes(x = date, y = value / 86400, colour = variable)) +
 geom_line() +
 scale_y_continuous(name = paste("10th perc.   \ntime on   \nthe same   \n",
   "address   \nin days   ", sep = ""),
@@ -171,11 +171,11 @@ scale_y_continuous(name = paste("10th perc.   \ntime on   \nthe same   \n",
   limits = c(0, max(d$value / 86400, na.rm = TRUE))) +
 scale_x_date("", breaks = "3 months", minor_breaks = "1 month",
   labels = date_format("%b %Y")) +
-scale_linetype_manual(name = paste("Requirements for\nconsidering",
+scale_colour_manual(name = paste("Requirements for\nconsidering",
   "a\nbridge as stable\n"), breaks = c("perc10tosa50wfu50wmtbac",
   "perc10tosa0wfu50wmtbac", "perc10tosa50wfu0wmtbac",
   "perc10tosa0wfu0wmtbac"), labels = c("WFU & WMTBAC", "WMTBAC", "WFU",
-  "None"), values = c(1, 3, 2, 4)) +
+  "None"), values = c("black", "grey80", "grey60", "grey45")) +
 opts(plot.title = theme_text(size = 14 * 0.8, face = "bold"),
   axis.title.x = theme_text(size = 12 * 0.8, face = "bold",
   hjust = 0.5),
@@ -207,14 +207,14 @@ d <- rbind(d,
     variable = "WFU"),
   data.frame(x = missing_dates, y = NA,
     variable = "WFU & WMTBAC"))
-ggplot(d, aes(x = x, y = y, linetype = variable)) +
+ggplot(d, aes(x = x, y = y, colour = variable)) +
 geom_line() +
 scale_y_continuous(name = "Fraction of    \nRunning    \nbridges    ",
   labels = percent, limits = c(0, max(d$y, na.rm = TRUE))) +
 scale_x_date("", breaks = "3 months", minor_breaks = "1 month",
   labels = date_format("%b %Y")) +
-scale_linetype_manual(name = paste("\nRequirements for\nconsidering",
-  "a\nbridge as stable\n"), values = c(3, 2, 4)) +
+scale_colour_manual(name = paste("\nRequirements for\nconsidering",
+  "a\nbridge as stable\n"), values = c("grey80", "grey60", "grey45")) +
 opts(axis.title.x = theme_text(size = 12 * 0.8, face = "bold",
   hjust = 0.5),
   axis.title.y = theme_text(size = 12 * 0.8, face = "bold", vjust = 0.5,