我试图把4个不同的R生物信息学包中的4个情节放在同一页上(但没有一个情节是ggploy制作的).

但我有一个问题,我的情节似乎相互重叠,我只看到了第四个情节(右下角).

我可以通过以下命令重现这种情况:

plot(1:10)
p1 <- recordPlot()
dev.off()

plot(1:10)
p2 <- recordPlot()
dev.off()

plot(1:10)
p3 <- recordPlot()
dev.off()

plot(1:10)
p4 <- recordPlot()
dev.off()

pdf(paste0("test",".pdf"), width = 20, height = 10)
ggarrange(plotlist = list(print(p1), print(p2), print(p3), print(p4)),
          ncol = 2, nrow = 2, align = "hv")
dev.off()

Resulting plot in the pdf file

我试着降低par(mar=c())%的利润率,但无济于事.

如果有任何建议来修复这种重叠,我将不胜感激.

谢谢,

丹尼

推荐答案

每个地块都有纯白的背景.如果您想要阻止每个绘图的背景与之前绘制的绘图的前景部分重叠,请将其设置为透明的(尽管我个人在这里也会使用拼接)

par(bg = "#00000000")
plot(1:10)
p1 <- recordPlot()
dev.off()

par(bg = "#00000000")
plot(1:10)
p2 <- recordPlot()
dev.off()

par(bg = "#00000000")
plot(1:10)
p3 <- recordPlot()
dev.off()

par(bg = "#00000000")
plot(1:10)
p4 <- recordPlot()
dev.off()

ggpubr::ggarrange(plotlist = list(print(p1), print(p2), print(p3), print(p4)),
          ncol = 2, nrow = 2, align = "hv")

enter image description here

R相关问答推荐

如何在R中正确对齐放射状图中的文本

如果列中存在相同的字符串,则对行值进行总和

如何 bootstrap glm回归、估计95%置信区间并绘制它?

如何使用R中的dhrr函数将李克特量表的因子列从长转换为宽?

通过使用str_detect对具有相似字符串的组进行分组

如何使用R对每组变量进行随机化?

当月份额减go 当月份额

汇总数据表中两个特定列条目的值

使用R闪光显示所有数据点作为默认设置

有效识别长载体中的高/低命中

将一个字符串向量调整为与其他字符串向量完全相同的大小

有没有可能用shiny 的书签恢复手风琴面板?

从R中发出的咕噜声中的BUG?

将列的值乘以在不同数据集中找到的值

如何阻止围堵地理密度图?

如何预测原始数据集并将值添加到原始数据集中

随机 Select 的非NA列的行均数

如何在shiny 的应用程序 map 视图宣传单中可视化单点

根据排名的顶点属性调整曲线图布局(&Q)

将每晚的平均值与每晚的值进行比较,统计是否有效?