ggplot legende Reihenfolge nicht übereinstimmen

Question

Ich bin ein Neuling zu R/ggplot, und ich habe StackOverflow für similar problems befragt, vergeblich. Es ist wahrscheinlich ein triviales Problem für die ggplot-Experten im Haus, wenn ja, freue ich mich auf eine schnelle Antwort!

Also hier geht: Ich versuche, 4 Kurven aus Variablen in einem Datenrahmen, Playng mit Farbe und Linientyp zu plotten. Leider sind die Legendenbeschriftungen zu den Kurven nicht passend, was den ganzen Zweck einer Legende vereitelt. Hier

ist die Figur:

Und hier ist der Code, den es erzeugt:

# declare variables 
alpha = 0.5 
m = 500 
x = seq(m) 
fdr_thresh = x/m*alpha 
lvl_thresh = rep(alpha,m) 
pvals = sin(2*pi*x/20) 
pvalsA = exp(-x/100)*cos(2*pi*x/20) 

# plot 
df <- data.frame(pvals=pvals, pvalsA = pvalsA, FDR = fdr_thresh, level = lvl_thresh, x=x) 
p4 <- ggplot(data = df) + geom_line(aes(x=x, y=pvals,color="Pure Sinusoid",linetype="Pure Sinusoid")) 
p4 <- p4 + geom_line(aes(x=x, y=pvalsA,color="Damped Sinusoid",linetype="Damped Sinusoid")) 
p4 <- p4 + geom_line(aes(x=x, y=FDR,color = 'FDR', linetype='FDR')) 
p4 <- p4 + geom_line(aes(x=x, y=level,color='alpha',linetype='alpha')) 
p4 = p4+ scale_linetype_manual(name = "Significance", values=c("Pure Sinusoid"= 1,"Damped Sinusoid" = 1,"FDR" = 2,"alpha" = 3),labels=c("Pure Sinusoid", "Damped Sinusoid", "Sloping line",bquote(alpha == .(alpha)))) 
p4 = p4 + scale_color_manual(name = "Significance",values=c("Pure Sinusoid"= "Chocolate1","Damped Sinusoid" = 'Chartreuse4',"FDR" = "black","alpha" = "black") , labels=c("Pure Sinusoid", "Damped Sinusoid", "Sloping line",bquote(alpha == .(alpha)))) 
p4 <- p4 + theme(legend.position = c(0.7, 0.8),legend.title=element_blank(),legend.key = element_rect(fill = "transparent",colour = "transparent"),legend.background = element_rect(fill=alpha('white', 0.8))) 
show(p4) 

Ich wäre Ihnen sehr dankbar für einen Tipp, wie man dies besser zu tun. Die gleiche Handlung in Matlab oder Python wäre korrekt und hätte 15 Minuten gedauert, also muss ich irgendwo eine falsche Entscheidung getroffen haben. (und nein, die Wahl von R war nicht diese Entscheidung: das ist Teil meiner Bemühungen, es zu lernen)

Answer 1

Der "richtige Weg", dies zu tun ist, um Ihre Daten in einen langen Datenrahmen zu schmelzen und lassen Sie dann ggplot kümmern die mehrere Zeilen für Sie von der grafischen Darstellung, anstatt die Ausgabe getrennte geom_line() Anrufe ...

# plot 
df <- data.frame(pvals, pvalsA, FDR = fdr_thresh, level = lvl_thresh, x) 

mm <- reshape2::melt(df,id.var="x") 
my.labs <- c("Pure Sinusoid","Damped Sinusoid","Sloping line", 
      bquote(alpha==.(alpha))) 
p4 <- ggplot(data = mm, aes(x,value,colour=variable,linetype=variable)) + 
    geom_line() 
p4 <- p4 + scale_linetype_manual(name="Significance",values=c(1,1,2,3), 
      labels=my.labs) 
p4 <- p4 + scale_color_manual(name = "Significance", 
        values=c("Chocolate1",'Chartreuse4',"black","black"), 
        labels=my.labs) 
p4 <- p4 + theme(legend.position = c(0.7, 0.8), 
        legend.title=element_blank(), 
        legend.key = element_rect(fill = "transparent", 
              colour = "transparent"), 
      legend.background = element_rect(fill=alpha('white', 0.8))) 
show(p4) 

(ich hatte schon theme_bw() Satz in der R-Sitzung I in funktionierte, weshalb der graue Hintergrund ist/Gitterlinien fehlen ...)

Answer 2

Das Problem ist, dass Sie die falsche Reihenfolge hinzugefügt haben, als Sie Ihre Variablenbeschriftungen zugeordnet haben.

dp4 <- ggplot(data = df) + geom_line(aes(x=x, y=pvals,color="Pure Sinusoid",linetype="Pure Sinusoid")) 
p4 <- p4 + geom_line(aes(x=x, y=pvalsA,color="Damped Sinusoid",linetype="Damped Sinusoid")) 
p4 <- p4 + geom_line(aes(x=x, y=FDR,color = 'FDR', linetype='FDR')) 
p4 <- p4 + geom_line(aes(x=x, y=level,color='alpha',linetype='alpha')) 

p4 <- p4+ scale_linetype_manual(name = "Significance", values=c("Pure Sinusoid"= 1,"Damped Sinusoid" = 1,"FDR" = 2,"alpha" = 3),labels=c(bquote(alpha == .(alpha)), "Damped Sinusoid", "Sloping line","Pure Sinusoid")) 

p4 <- p4 + scale_color_manual(name = "Significance",values=c("Pure Sinusoid"= "Chocolate1","Damped Sinusoid" = 'Chartreuse4',"FDR" = "black","alpha" = "black") , labels=c(bquote(alpha == .(alpha)), "Damped Sinusoid", "Sloping line","Pure Sinusoid")) 

p4 <- p4 + theme(legend.position = c(0.7, 0.8),legend.title=element_blank(),legend.key = element_rect(fill = "transparent",colour = "transparent"),legend.background = element_rect(fill=alpha('white', 0.8))) 
show(p4)