如何将颜色和线型映射到ggplot2线图中的若干列

Question

我有一个data.frame，其中四个队列C1-C4已经测量了五次M1-M5。

library(ggplot2) 
mydf <- data.frame(C1=c(49, 14, 8, 7, 2), 
        C2=c(0, 0, 0, 0, 0), 
        C3=c(13, 17, 7, 8, 8), 
        C4=c(0, 0, 0, 0, 0), 
        M = c("M1", "M2", "M3", "M4", "M5")) 

我想为每个队列绘制一条线来显示测量结果。

ggplot(data=mydf) + 
    geom_line(aes(x=M, y=C1, group=1), colour="red") + 
    geom_line(aes(x=M, y=C2, group=2), colour="green") + 
    geom_line(aes(x=M, y=C3, group=3), colour="blue") + 
    geom_line(aes(x=M, y=C4, group=4), colour="black", linetype="dashed") 

我设法这样做了，通过手动分组行。不过，我对这个传说有麻烦。我想我需要将颜色和线条样式映射到一些分组标准。但我该怎么做？我应该按队列分组，但他们不在一列内。 有没有办法使用这种手动分组或其他方式来构建我的情节的图例？ 任何帮助将不胜感激。

Answer 1

谢谢大家，这极大地帮助。因为我需要黑色虚线覆盖绿色实线，所以我在控制线条和颜色方面努力了一些。但最终结果如下：

library(ggplot2) 
library(reshape2) 

mydf <- data.frame(M = c("M1", "M2", "M3", "M4", "M5"), 
        C1=c(49, 14, 8, 7, 2), 
        C2=c(0, 0, 0, 0, 0), 
        C3=c(13, 17, 7, 8, 8), 
        C4=c(0, 0, 0, 0, 0)) 
mydf2 <- melt(mydf) 
ggplot(data=mydf2) + 
    geom_line(aes(x=M, y=value, group=variable, colour=variable, linetype=variable)) + 
    scale_linetype_manual(values=c("solid", "solid", "solid", "dashed")) + 
    scale_colour_manual(values=c("red", "green", "blue", "black")) 

再次感谢您的帮助！

Answer 2

这里是eipi10建议什么的例子：

mydf <- data.frame(C1=c(49, 14, 8, 7, 2), 
        C2=c(0, 0, 0, 0, 0), 
        C3=c(13, 17, 7, 8, 8), 
        C4=c(0, 0, 0, 0, 0), 
        M = c("M1", "M2", "M3", "M4", "M5")) 

mydf.m <- melt(mydf, id.vars="M", 
       variable.name="my_var_name", 
       value.name="my_value_name") 

mydf.m$linetype_var <- ifelse(mydf.m["my_var_name"]=="C4","dashed","solid") 

my_colors <- c("red","green","blue","black") 

ggplot(mydf.m, aes(x=M, y=my_value_name, 
        group=my_var_name, 
        color=my_var_name, 
        linetype=linetype_var))+ 
    geom_line()+ 
    scale_linetype_identity()+ 
    scale_color_manual(values=my_colors)