commit 224e9ca924e73bf2c673ce5a8d1f3476bf1147de Author: Karsten Loesing karsten.loesing@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,