Добавить категорию легенды к линейному графику ggplot2 с двумя осями Y
Я пытаюсь сделать график, используя ggplot2
с 2-мя разными осями у (уместно и не вводит в заблуждение, обещаю).
У меня есть легенда для первого графика, но я не могу добавить один для второго. Я не могу обозначить эту ось.
Мой код довольно длинный, поэтому я сократил кодировку p1
поскольку я не думаю, что мне нужно это изменить.
p1 <- p + theme(legend.position = "top")
p2 <- ggplot(concB.only.for.R, aes(ConcB.ml, ConcB))
geom_line(colour = "#000099") + theme_bw() +
theme(panel.background = element_rect(fill = NA)) +
theme(legend.position = "top")
g1 <- ggplot_gtable(ggplot_build(p1))
g2 <- ggplot_gtable(ggplot_build(p2))
pp <- c(subset(g1$layout, name == "panel", se = t:r))
g <- gtable_add_grob(g1, g2$grobs[[which(g2$layout$name == "panel")]],
pp$t, + pp$l, pp$b, pp$l)
ia <- which(g2$layout$name == "axis-l")
ga <- g2$grobs[[ia]]
ax <- ga$children[[2]]
ax$widths <- rev(ax$widths)
ax$grobs <- rev(ax$grobs)
ax$grobs[[1]]$x <- ax$grobs[[1]]$x - unit(1, "npc") + unit(0.15, "cm")
g <- gtable_add_cols(g, g2$widths[g2$layout[ia, ]$l], length(g$widths) - 1)
g <- gtable_add_grob(g, ax, pp$t, length(g$widths) - 1, pp$b)
grid.draw(g)