Horizontale Linie mit verschiedenen Farben

Question

Wie ich diesen Code ändern kann verschiedene Farben für Linien (zum Beispiel Schwarz, rot, grün)

library(ggplot2) 

    lt <- data.frame(yint = c(200, 250, 210, 215, 279, 280), 
        grp = factor(c(1, 1, 2, 2, 3, 3), 
            levels = 1:3, 
            labels = c("Group 1", "Group 2", "Group 3"))) 


    ggplot(mtcars, aes(mpg, disp)) + 
      geom_point(aes(colour=factor(vs), 
      fill = factor(vs)), shape=21, size = 4) + 
      scale_fill_manual(values=c("blue", "pink")) + 
      scale_colour_manual(values=c("black", "black"))+ 
      geom_hline(data = lt, 
        mapping = aes(yintercept = yint, linetype = grp)) 

ich habe versucht, diese Funktion zu nutzen, aber ich habe den Fehler

ggplot(DataSet, aes(AGE, RESULT)) + 
     geom_point(aes(colour=PATIENT.SEX, 
     fill = PATIENT.SEX), shape=21, size = 1.4) + 
     scale_fill_manual(values=c("hotpink", "skyblue2")) + 
     scale_colour_manual(values=c("hotpink", "skyblue2"))+ 
     ylab("Potassium (mmol/L) ")+xlab("Age (month) ")+ggtitle("Alberta observations")+theme_bw()+ 
     theme(plot.title = element_text(lineheight=.8, face="bold",size=13))+ 
     theme(axis.text=element_text(size=12),axis.title=element_text(size=12,face="bold"))+ 
     theme(panel.border = element_blank(), panel.grid.major = element_blank(), 
     panel.grid.minor = element_blank(), axis.line = element_line(colour = "black"))+ 
     geom_hline(data = lt, 
       mapping = aes(yintercept = yint,linetype = RI),colour 
=c("blue","blue", "red", "red", "black","black")) 

Answer 1

Eine Lösung besteht darin, den Aufruf scale_color_manual zu ändern. Setzen Sie die values und die limits für die Faktorstufen für vs (wie bereits in Ihrem Beitrag getan) und für die drei Gruppenstufen. Im Beispiel unten habe ich die Farbe für die factor(vs) für beide Ebenen auf Schwarz gesetzt, wie es im ursprünglichen Post getan wurde, und dann die Farben für Gruppe 1, Gruppe 2 und Gruppe 3 als violett, grün und gelb festlegen.

library(ggplot2) 

lt <- data.frame(yint = c(200, 250, 210, 215, 279, 280), 
       grp = factor(c(1, 1, 2, 2, 3, 3), 
           levels = 1:3, 
           labels = c("Group 1", "Group 2", "Group 3"))) 


ggplot(mtcars, aes(mpg, disp)) + 
     geom_point(aes(colour=factor(vs), fill = factor(vs)), shape=21, size = 4) + 
     scale_fill_manual(values=c("blue", "pink")) + 
     geom_hline(data = lt, 
       mapping = aes(yintercept = yint, linetype = grp, color = grp)) + 
     scale_color_manual(name = "", 
         values = c("black", "black", "Purple", "Green", "Yellow"), 
         limits = c(0, 1, "Group 1", "Group 2", "Group 3")) 

Answer 2

One "Brute-Force" Option in der aktuellen development version von ggplot2, 2.2.1.9000, beginnen außerhalb von aes Farben einzustellen. Die Farben, die Sie angeben, müssen entweder die Länge 1 (alle Farben gleich) oder die gleiche Länge wie der Datensatz in dieser Ebene haben.

In Ihrem Beispiel haben Sie 6 Reihen in Ihrem Datensatz, um 6 horizontale Linien zu machen, also gebe ich 6 Farben.

Wenn Sie diese Methode verwenden, müssen Sie darauf achten, dass die Farben mit der entsprechenden Zeile im Dataset übereinstimmen. In Ihrem tatsächlichen Anwendungsfall könnten Sie in Betracht ziehen, die Farben dem Dataset hinzuzufügen, um sie zu organisieren.

ggplot(mtcars, aes(mpg, disp)) + 
    geom_point(aes(colour=factor(vs), 
        fill = factor(vs)), shape=21, size = 4) + 
    scale_fill_manual(values=c("blue", "pink")) + 
    scale_colour_manual(values=c("black", "black"))+ 
    geom_hline(data = lt, 
       mapping = aes(yintercept = yint, linetype = grp), 
       color = c("black", "black", "red", "red", "green", "green")) 

Wenn Sie die Farben auf der linetype Legende setzen möchten, können Sie guide_legend und override.aes setzen Legende Farben.

ggplot(mtcars, aes(mpg, disp)) + 
    geom_point(aes(colour=factor(vs), 
        fill = factor(vs)), shape=21, size = 4) + 
    scale_fill_manual(values=c("blue", "pink")) + 
    scale_colour_manual(values=c("black", "black"))+ 
    geom_hline(data = lt, 
       mapping = aes(yintercept = yint, linetype = grp), 
       color = c("black", "black", "red", "red", "green", "green")) + 
    guides(linetype = guide_legend(override.aes = list(color = c("black", "red", "green"))))