Question

我试图将两个维恩图放在一个图中，即我在一开始就使用par（mfrow = c（1,2））。但是，当我在Venn()包中使用Vennerable函数时：

VennCompare = Venn(SetNames = c("A", "B", "C"), Weight = c(0, 38, 1, 0, 1, 80, 0, 14))
pdf(file="Venn.pdf", width=12, height=6)
par(mfrow=c(1,2))
plot(VennCompare, doWeights=FALSE)
plot(VennCompare, doWeights=TRUE, show = list(SetLabels = TRUE, Faces = FALSE))
dev.off()

生成的pdf文件包含2个页面，每个页面都有一个维恩图。

如何将两个图表放在一个页面中（即并排）？

Answer 1

正如评论中已经讨论的那样，Vennerable使用网格图形并修复包函数内部的网格参数。如果他们可以在他们的软件包中添加这种功能，你可能应该从软件包维护者那里请一下，但与此同时我会为你提供一个Hackof，它可以让你做你想做的事情：

第一个命令允许您编辑名为makevp.eqsc的函数，该函数似乎包含网格定义：

trace("makevp.eqsc",edit=TRUE)

原始代码如下：

function (xrange, yrange) 
{
    pushViewport(plotViewport(name = "Vennmar", c(1, 1, 1, 1)))
    pushViewport(viewport(name = "Vennlay", layout = grid.layout(1, 
        1, widths = diff(xrange), heights = diff(yrange), respect = TRUE)))
    pushViewport(viewport(name = "Vennvp", layout.pos.row = 1, 
        layout.pos.col = 1, xscale = xrange, yscale = yrange))
}

最相关的部分是grid.layout，它告诉您要绘制哪种网格。 layout.pos.row和layout.pos.col也很重要，它们告诉我们要绘制哪个位置。像这样更改代码：

function (xrange, yrange) 
{
    pushViewport(plotViewport(name = "Vennmar", c(1, 1, 1, 1)))
    pushViewport(viewport(name = "Vennlay", layout = grid.layout(2, 
        1, widths = diff(xrange), heights = diff(yrange), respect = TRUE)))
    pushViewport(viewport(name = "Vennvp", layout.pos.row = number, 
        layout.pos.col = 1, xscale = xrange, yscale = yrange))
}

现在您将获得两个堆叠的图形，如下所示：

number<-1 #change the argument inside of makevp.eqsc
plot(VennCompare, doWeights=FALSE)
number<-2
plot(VennCompare, doWeights=TRUE, 
  show = list(SetLabels = TRUE, Faces = FALSE),add=TRUE) #note add=TRUE

这看起来不太好，但通过修改makevp.eqsc，你可以获得更好的结果。

Answer 2

我无法安装该软件包，但这里可能有用的技巧是使用grid.grab将图形捕获到可放置在其他位置的grob中，

library(grid)

myplot <- function(){

  pushViewport(viewport(x=0.5,width=1, just=0.5))
  grid.rect(gp=gpar(fill=grey(runif(1, 0.2, 0.8))))
  grid.points()
  popViewport()

}

p1 <- grid.grabExpr(myplot())
p2 <- grid.grabExpr(myplot())

library(gridExtra)

grid.arrange(p1, p2, ncol=2)

Answer 3

试试这个：

v <- Venn(n=2)
plot(v)
grid.text("Title", vp = viewport(x=0.5, y=.9, w=unit(1, "npc"), h=unit(1, "npc")))

使用Vennerable的并排维恩图

3 个答案: