计算重叠后打印维恩图答案

【问题标题】：Printing Venn Diagram after calculating overlap计算重叠后打印维恩图
【发布时间】：2017-08-27 06:47:11
【问题描述】：

我正在尝试使用 VennDiagram 包中的 calculate.overlap 函数首先计算然后打印维恩图。我能够计算出我的数据集的重叠，但正在寻求如何打印维恩图形的帮助。任何人都可以提供帮助吗？我通读了文档，但没有找到。

> library('VennDiagram')

# A simple single-set diagram
cardiome <- letters[1:10]
superset <- letters[8:24]
overlap <- calculate.overlap(
x = list(
"Cardiome" = cardiome,
"SuperSet" = superset
)
);

【问题讨论】：

标签： r venn-diagram

【解决方案1】：

另一个显示如何使用VennDiagram 包打印维恩图的简单示例：

library(VennDiagram)
cardiome <- letters[1:10]
superset <- letters[8:24]
overlap <- calculate.overlap(
x <- list("Cardiome"=cardiome, "SuperSet"=superset))

venn.plot <- draw.pairwise.venn(
    area1 = length(cardiome),
    area2 = length(superset),
    cross.area = length(overlap),
    category = c("Cardiome", "Superset"),
    fill = c("blue", "red"),
    lty = "blank",
    cex = 2,
    cat.cex = 2,
    cat.pos = c(180, 180),
    cat.dist = 0.05,
    cat.just = list(c(0, 1), c(1, 1))
    )
grid.draw(venn.plot)
savePlot(filename="venndiag", type="png")

集合内带有项目标签的维恩图：

library(RAM)
vectors <- list(Cardiome=cardiome, Superset=superset)
group.venn(vectors=vectors, label=TRUE, 
    fill = c("blue", "red"),
    cat.pos = c(180, 180),
    lab.cex=1.1)

【讨论】：

Marco，可能值得将第二部分添加为stackoverflow.com/questions/25019794/…的asnwer
@MarcoSandri 真的很喜欢第二部分（RAM 包）。为此+1 :)

【解决方案2】：

函数venn.diagram() 做到了。例如在你的例子中

venn.diagram(x = list(
  "Cardiome" = cardiome,
  "SuperSet" = superset
), "plot_venn")

它保存到工作目录。输入 getwd() 以查看它的设置。

查看

?venn.diagram()

了解更多信息。

【讨论】：

【解决方案3】：

?venn.diagram 建议这样做

library('VennDiagram')
venn.plot <- venn.diagram(
  x = list(
    cardiome = letters[1:10],
    superset = letters[8:24]
  ),
  filename = NULL
);
grid.draw(venn.plot);

【讨论】：