Как показать легенду на двойной оси g gpl

Я пытаюсь составить двойную диаграмму оси y, используя ggplot. Во-первых, позвольте мне сказать, что я не ищу дискуссию по поводу того, действительно ли это хорошая практика. Я считаю, что они особенно полезны при анализе временных данных для определения тенденций в 2 дискретных переменных. Дальнейшее обсуждение этого лучше всего подходит для перекрестного контроля, на мой взгляд.

Kohske является очень хорошим примером того, как это сделать, к чему я до сих пор пользовался большим эффектом. Тем не менее, я ограничиваюсь включением легенды для обеих осей y. Я также видел похожие вопросы здесь и здесь, но ни один из них не рассматривает проблему включения легенды.

У меня есть воспроизводимый пример с использованием набора данных алмазов из ggplot.

Данные

library(ggplot2)
library(gtable)
library(grid)
library(data.table)
library(scales)

grid.newpage()

dt.diamonds <- as.data.table(diamonds)

d1 <- dt.diamonds[,list(revenue = sum(price),
                        stones = length(price)),
                  by=clarity]

setkey(d1, clarity)

Диаграммы

p1 <- ggplot(d1, aes(x=clarity,y=revenue, fill="#4B92DB")) +
  geom_bar(stat="identity") +
  labs(x="clarity", y="revenue") +
  scale_fill_identity(name="", guide="legend", labels=c("Revenue")) +
  scale_y_continuous(labels=dollar, expand=c(0,0)) + 
  theme(axis.text.x = element_text(angle = 90, hjust = 1),
        axis.text.y = element_text(colour="#4B92DB"), 
        legend.position="bottom")

p2 <- ggplot(d1, aes(x=clarity, y=stones, colour="red")) +
  geom_point(size=6) + 
  labs(x="", y="number of stones") + expand_limits(y=0) +
  scale_y_continuous(labels=comma, expand=c(0,0)) +
  scale_colour_manual(name = '',values =c("red","green"), labels = c("Number of Stones"))+
  theme(axis.text.y = element_text(colour = "red")) +
  theme(panel.background = element_rect(fill = NA),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_rect(fill=NA,colour="grey50"),
        legend.position="bottom")

# extract gtable
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)
# axis tweaks
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)
# draw it
grid.draw(g)

ВОПРОС: Есть ли у кого-нибудь советы о том, как получить вторую часть легенды?

Ниже приведены диаграммы, созданные в порядке p1, p2, в сочетании p1 и p2, вы заметите, что легенда для p2 не отображается в комбинированной диаграмме.

объединены p1 и p2

Ответ 1