ggplot2双轴。无法保存到文件

Question

我正在使用ggplot2在Dual Axis上进行绘图。我正在使用下面发布的代码。我试图将其保存为JPEG，但它只保存最后一个输出线而不是两条线，即使轴是正确的。如何同时保存两个轴及其相对线？我正在尝试ggsave，但它抱怨它不是ggplot2格式。

## Putting plots together ##################
# extract gtable
g1 <- ggplot_gtable(ggplot_build(p1))
g2 <- ggplot_gtable(ggplot_build(p2))

# overlap the panel of 2nd plot on that of 1st plot
pp <- c(subset(g1$layout, grepl("panel",name) , se = t:r))
g <- gtable_add_grob(g1, g2$grobs[grep("panel",g2$layout$name)], pp$t, 
                     pp$l, pp$b, pp$l)



# axis tweaks
ia <- which(grepl("axis_l",g2$layout$name) |  grepl("axis-l",g2$layout$name)     )
ga <- g2$grobs[ia]


axis_idx <- as.numeric(which(sapply(ga,function(x) !is.null(x$children$axis))))

for(i in 1:length(axis_idx)){
  ax <- ga[[axis_idx[i]]]$children$axis
  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[axis_idx[i]], ]$l], length(g$widths) - 1)
  g <- gtable_add_grob(g, ax, pp$t[axis_idx[i]], length(g$widths) - i, pp$b[axis_idx[i]])
}



# Plot!
grid.newpage()
grid.draw(g)

Answer 1

这里我们将一个图与第二个图重叠，因此第二个图应该是透明的，不要隐藏第一个图。我们可以通过从图中删除panel.background和plot.background来获得此结果。

g2 <- ggplot_gtable(ggplot_build(p2 + theme(plot.background = element_blank(), 
                                            panel.background = element_blank())))

另一个选项是在输出设备中将背景颜色设置为透明。

jpeg(bg = "transparent")

之后我们可以得到双轴图（对来自Seatbelts data.frame的数据做了）：

我们还应该记住，第二个图的网格线仍然可见，我们必须在需要时对它们做些什么。