ggplot kombiniert Linientyp und füllen Sie die Legende

Question

Wie Sie den Linientyp kombinieren und Legende ausfüllen ??

Hier sind meine Daten-Set:

values <- runif(1200, 1, 100) 
ind <- as.factor(rep(c(1:6), each=200)) 
inout <- as.factor(rep(c(1:2), each =600)) 
df <- data.frame(values,ind,inout) 

ggplot(df) + 
geom_density(aes(x=values, y=..density..*100, group=interaction(ind,inout), linetype=factor(inout), colour=ind), size =1, alpha=1,na.rm = TRUE) + 
geom_density(aes(x=values, y=..density..*100, group=inout, linetype=factor(inout), fill=factor(inout)), alpha=.4) 

Das ursprüngliche Grundstück:

Ich mag würde die Legende "-Faktor (inout)" und Legende "NA" kombinieren.

Danke für Ihre Hilfe.

Answer 1

Verwenden Sie den manuellen Waagen und stellen Sie sicher, sie beide den gleichen Namen und Etiketten (ähnliche Idee here) haben:

ggplot(df, aes(x=values, y=..density..*100, linetype=factor(inout))) + 
    geom_density(aes(group=interaction(ind, inout), colour=ind), 
       size=1, alpha=1, na.rm=TRUE) + 
    geom_density(aes(group=inout, fill=factor(inout)), alpha=.4) + 
    scale_fill_manual(name = "fancy curves", labels = 1:2, values = c("red", "blue")) + 
    scale_linetype_manual(name = "fancy curves", labels = 1:2, values = 1:2)