Изменение размера и перемещение ручного гроба легенды ggplot - PullRequest
Новая
       75

Изменение размера и перемещение ручного гроба легенды ggplot

1 голос
/ 19 апреля 2020

У меня есть объект ggplot2, который я пытаюсь добавить легенду для некоторых vlines. Я выполнил следующее: ( ggplot2: вручную добавить легенду ), но мне не удалось получить желаемый результат. Любые предложения очень ценятся.

Где я попал:

enter image description here

Мой желаемый вывод - разместить ручную легенду прямо над Видовая легенда (или под ней) 

library(ggplot2)  
library(grid)  
library(gtable)
library(dplyr)

plot2 <- iris %>% 
  ggplot() + 
  geom_line(aes(Sepal.Length, Sepal.Width, color = Species)) + 
  facet_wrap(Species ~ ., nrow = 3) +
  geom_vline(xintercept = 6, y = 4.5, linetype = "dashed", color = "darkblue") +
  geom_vline(xintercept = 7, y = 4.5, linetype = "dashed", color = "black") 

L1 = linesGrob(x = unit(c(.5, .5), "npc"), y = unit(c(.25, .75), "npc"),
               gp = gpar(col = "black", lty = "longdash"))
L2 = linesGrob(x = unit(c(.5, .5), "npc"), y = unit(c(.25, .75), "npc"),
               gp = gpar(col = "darkblue", lty = "longdash"))
T1 = textGrob("line 1 explaing something", x = 0, just = "left")
T2 = textGrob("line 2 explaing something", x = 0, just = "left")

leg = gtable(width = unit(c(1,5), "cm"), height = unit(c(1,1,1,1), "cm"))
#leg = gtable_add_grob(leg, rectGrob(gp = gpar(fill = NA, col = "black")), t=2,l=1,b=4,r=2)

leg = gtable_add_grob(leg, L1, t=2, l=1)
leg = gtable_add_grob(leg, L2, t=3, l=1)
leg = gtable_add_grob(leg, T1, t=2, l=2)
leg = gtable_add_grob(leg, T2, t=3, l=2)

g = ggplotGrob(plot2)

pos = g$layout[grepl("panel", g$layout$name), c('t', 'l')]
g = gtable_add_cols(g, sum(leg$widths), pos$l[1])
g = gtable_add_grob(g, leg, t = pos$t[1], l = pos$l[1] + 1)
g = gtable_add_cols(g, unit(6, "pt"), pos$l[1])

# Draw it
grid.newpage()
grid.draw(g)

Я также попробовал этот подход: 

vlines <- data.frame(line = c("Line 1 Explaining Something", "Line 2 Explaining Something"), 
                     y = c(4.5, 4.5), x = c(6, 7))

ggplot() + 
  geom_line(data = iris, aes(Sepal.Length, Sepal.Width, color = Species)) + 
  facet_wrap(Species ~ ., nrow = 3) +
  geom_linerange(data = vlines, 
                 aes(x = x, 
                     ymax = y,
                     ymin = 0,
                     color = line),
             linetype = "dashed") +
  geom_linerange(data = vlines, 
                 aes(x = x, 
                     ymax = y,
                     ymin = 0,
                     color = line),
             linetype = "dashed")

Но, как вы можете видеть, он не добавляет da sh и объединяет его с другой тип линии ...

enter image description here

1 Ответ

1 голос
/ 19 апреля 2020

Одним из возможных решений для достижения желаемого результата является использование функции new_scale_color из пакета ggnewscale для установки новой цветовой легенды для вертикальных линий.

В моем решении я также заменяю использование geom_linerange на geom_vline, которые позволяют рисовать вертикальные линии, просто указав значения перехвата x.

На своем примере вы можете нарисовать что-то вроде этого: 

library(ggnewscale)
library(ggplot2)

ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species)) + 
  geom_line()+
  facet_wrap(Species ~ ., nrow = 3) +
  new_scale_color()+
  geom_vline(data = vlines, 
             aes(xintercept = x, color = line), linetype = "dashed")+
  scale_color_manual(values = c("blue","black"), name = "")

enter image description here

Это то, что вы ищете?

...