in ggplot

Question

Angenommen, ich habe dieses Grundstück:

library(ggplot2) 
pl_data <- data.frame(x = rep(c(1, 2), times = 3), y = c(0, 1, 1, 0, .7, .7), col = rep(c("r", "b", "g"), each = 2)) 
ggplot(pl_data, aes(x = x, y = y, color = col)) + 
    geom_line(size = 3) 

Wie kann ich das Plotten Reihenfolge zu ändern, so dass die rote Linie über die beiden anderen aufgetragen ?

Der Hintergrund ist daher, dass ich Plots mit sehr ähnlichen Zeilen habe und bestimmte Zeilen im Vordergrund sehen möchte.

Ich nehme etwas entlang der Linien von dieser Antwort order of stacked bars in ggplot funktionieren würde. Es macht die Farbspalte zu Faktoren und ändert ihre Reihenfolge, aber ich würde es vorziehen, dies direkt in einer Zeile des ggplot-Aufrufs zu ändern.

Ich habe auch versucht, die Legendenreihenfolge mit scale_color_discrete(breaks=c("r", "g", "b"))), zu ändern, aber das wirkt sich auch nicht auf die Auftragreihenfolge aus.

Answer 1

Also eigentlich die letzte Stufe der col ist auf der Oberseite. Sie müssen also die Reihenfolge des Faktors ändern und die Farben umgekehrt als rot automatisch auf der ersten Ebene abgebildet wird (verwendet Standardfarben, das Problem zu veranschaulichen):

pl_data$col <- factor(pl_data$col, c("r", "g", "b")) 
ggplot(pl_data, aes(x = x, y = y, color = col)) + 
    geom_line(size = 3) + 
    scale_color_manual(values = c(r = "blue", g = "green", b = "red")) 

## with standard colors of ggplot2, function taken from: 
## http://stackoverflow.com/questions/8197559/emulate-ggplot2-default-color-palette 

ggplotColours <- function(n = 6, h = c(0, 360) + 15) { 
    if ((diff(h) %% 360) < 1) h[2] <- h[2] - 360/n 
    hcl(h = (seq(h[1], h[2], length = n)), c = 100, l = 65) 
} 
pal <- setNames(ggplotColours(3), c("b", "g", "r")) 
ggplot(pl_data, aes(x = x, y = y, color = col)) + 
    geom_line(size = 3) + 
    scale_color_manual(values = pal, breaks = c("b", "g", "r")) 

Answer 2

library(ggplot2) 
df <- data.frame(
    x = rep(c(1, 2), times = 3), 
    y = c(0, 1, 1, 0, .7, .7), 
    col = rep(c("r", "b", "g"), each = 2)) 

ggplot() + 
    geom_line(data = df[3:4,], aes(x = x, y = y), color = 'blue', size = 3) + 
    geom_line(data = df[5:6,], aes(x = x, y = y), color = 'green', size = 3) + 
    geom_line(data = df[1:2,], aes(x = x, y = y), color = 'red', size = 3)