ggplot2双轴。不可能保存到文件

我正在使用ggplot2在双轴上绘图。我正在使用下面发布的代码。我试图将它保存为JPEG，但它只保存最后一行输出，而不是曲线的两行，即使轴是正确的。如何在同一时间用相对线保存两个轴？我正在尝试ggsave，但它抱怨它不是ggplot2格式。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)

来源

2015-10-07 user1176316

也许你的第二个阴谋不透明？尝试'g2 < - ggplot_gtable（ggplot_build（p2 + theme（plot.background = element_blank（），panel.background = element_blank（））））' – inscaven

不，它似乎总是只保存两个绘图中的一个。不是都。我试过了你的建议，但结果是一样的。 – user1176316

您还需要打开具有像'jpeg（bg =“transparent”）''的透明图形设备，默认情况下它具有'bg =“white”' – inscaven

这里我们重叠一个情节与第二个，所以第二个情节应该是透明的，不要隐藏第一个情节。我们可以从图中删除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）：

我们还应该记住，第二个图的网格线仍然可见，我们必须在需要的情况下与他们一起做些事情。

来源

2015-10-07 13:46:45 inscaven

你看到你的直方图在AXIS后面，它变得不太清晰。如何让AXIS在两者背后阴谋？ – user1176316

作为一个快速解决方案，可以将它们从第二个绘图中删除，再次修改'theme'：'p2 + theme（panel.grid = element_blank（））' 如果您确实想绘制它们，这是可能的，但至少有两种方法可以实现：1）修改生成的'gtable'中'grob'的顺序2）用自定义的y-scale中断和标签重建第一个plot。这两种方式都不容易在评论中给出答案。您可以将其作为单独的问题发布。 – inscaven

ggplot2双轴。不可能保存到文件

回答

相关问题