переупорядочить легенду многострочного сюжета с сегментом, используя ggplot2 - PullRequest
Новая
       13

переупорядочить легенду многострочного сюжета с сегментом, используя ggplot2

0 голосов
/ 01 июня 2018

У меня есть многострочный график с сегментом каждой линии, выделенным так же, как обсуждалось здесь .Вот воспроизводимый пример: 

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="")

Это дает порядок элементов в легенде, как показано на рисунке ниже.Я хочу изменить их порядок.Поскольку каждая линия имеет сегмент, и каждый сегмент имеет один и тот же цвет "черный", я не могу использовать аргумент breaks в scale_color_manual, так как для этого требуется 5 значений, а график строится для 4 столбцов в кадре данных.Как я могу изменить порядок элементов в легенде в порядке s1on, s2on, s1_off, s2_off и новых?enter image description here

1 Ответ

0 голосов
/ 02 июня 2018

Это может быть то, что вы ищете 

 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="")
...