我有一个多线图,其中每条线的一段以与讨论的 here相同的方式突出显示。下面是一个可重现的例子:
df <- data.frame(x = 1:100,y1 = rnorm(100,1,100),y2=rnorm(100,5,50),y3=rnorm(100,10,500),y4=rnorm(100,1,200),col1 = c(rep("red", 50), rep("black", 10), rep("red", 40)),col2=c(rep("blue", 50), rep("black", 10), rep("blue", 40)),col3=c(rep("orange", 50), rep("black", 10), rep("orange", 40)),col4=c(rep("cyan", 50), rep("black", 10), rep("cyan", 40)))
ggplot(df, aes(x=x, y=y1)) + geom_line(aes(colour=col1, group=1))+geom_line(aes(x=x, y=y2,col=col2,group=1))+geom_line(aes(x=x, y=y3,col=col3,group=1))+geom_line(aes(x=x, y=y4,colour=col4, group=1))+geom_line(aes(x=x, y=y4,col=col4,group=1))+scale_color_manual(values=c("black","blue","red","orange","cyan"),labels=c("new","s1on","s2off","s2_on","s1_off"),name="")
这给出了图例中项目的顺序,如下图所示。我想重新排序。因为每条线都有一条线段,并且每条线段都有相同的颜色“黑色”,所以我不能在scale_color_manual
中使用breaks
参数,因为它需要5个值,而且绘图是为数据框中的4列绘制的。如何按s1on、s2on、s1_off、s2_off和new的顺序对图例中的项目进行重新排序?
发布于 2018-06-02 05:08:22
这可能就是你要找的东西
ggplot(df, aes(x=x, y=y1)) +
geom_line(aes(colour=col1, group=1)) +
geom_line(aes(x=x, y=y2,col=col2,group=1)) +
geom_line(aes(x=x, y=y3,col=col3,group=1)) +
geom_line(aes(x=x, y=y4,colour=col4, group=1)) +
geom_line(aes(x=x, y=y4,col=col4,group=1)) +
scale_color_manual(breaks = c("blue","orange","cyan","red","black"),
values=c("blue" = "blue", "red" = "red","orange" = "orange","cyan" = "cyan","black" = "black"),
labels=c("s1on","s2_on","s1_off","s2off","new"),name="")
您可以使用breaks
对图例进行重新排序。values
参数将正确的颜色映射到正确的值。
我可以更容易地查看df
中的值是否与您想要的颜色不同
df <- data.frame(x = 1:100,
y1 = rnorm(100,1,100),
y2=rnorm(100,5,50),
y3=rnorm(100,10,500),
y4=rnorm(100,1,200),
col1 = c(rep("rrr", 50),
rep("bbb", 10),
rep("rrr", 40)),
col2=c(rep("blbl", 50),
rep("bbb", 10),
rep("blbl", 40)),
col3=c(rep("ooo", 50),
rep("bbb", 10),
rep("ooo", 40)),
col4=c(rep("ccc", 50),
rep("bbb", 10),
rep("ccc", 40)))
ggplot(df, aes(x=x, y=y1)) +
geom_line(aes(colour=col1, group=1)) +
geom_line(aes(x=x, y=y2,col=col2,group=1)) +
geom_line(aes(x=x, y=y3,col=col3,group=1)) +
geom_line(aes(x=x, y=y4,colour=col4, group=1)) +
geom_line(aes(x=x, y=y4,col=col4,group=1)) +
scale_color_manual(breaks = c("blbl","ooo","ccc","rrr","bbb"),
values=c("blbl" = "blue", "rrr" = "red","ooo" = "orange","ccc" = "cyan","bbb" = "black"),
labels=c("s1on","s2_on","s1_off","s2off","new"),name="")
https://stackoverflow.com/questions/50650392
复制相似问题