加载中…R语言绘制韦恩图Veendiagram
(2017-05-22 12:41:03)
标签：
r语言韦恩图venndiagram |
说明
这里使用VennDiagram包来绘制韦恩图。绘制的韦恩图既可以直接保存为文件，也可以像我这里一样，保存为gtable的变量。
有时候我们需要把不同的图形整合到一张图里，这里我们使用cowplot包来整合。如最后一个图所示，可以把来自不同的韦恩图整合到一个文件里。
library(VennDiagram)
library(cowplot)
# 1) plot two-set Venn diagram
#data
HAS=1:(750+781)
Down_in_mel=751:(750+781+146)
length(intersect(HAS,Down_in_mel))
#[1] 781
#plot
p1<-venn.diagram(list(HAS=HAS,Down_in_mel=Down_in_mel),
)
ggdraw(p1)
# 2) plot three-set Venn diagram
x1 = c(1:100)
x2 = c(10:20, 101:130, 200:300)
x3 = c(80:100, 250:300)
x4 = c(250:200)
x = list(A =x1, B =x2, C =x3)
p2 = venn.diagram(
)
ggdraw(p2)
x = list(A =x1, B =x2, D =x4)
p3 = venn.diagram(
)
ggdraw(p3)
# 3) sample five-set Venn Diagram
set.seed(123)
A <- sample(1:1000, 400, replace = FALSE);
B <- sample(1:1000, 600, replace = FALSE);
C <- sample(1:1000, 350, replace = FALSE);
D <- sample(1:1000, 550, replace = FALSE);
E <- sample(1:1000, 375, replace = FALSE);
p4 <- venn.diagram(
)
ggdraw(p4)
#4) Merge the 4 sub-figures above into one figure.
plot_grid(p1, p2, p3, p4, nrow = 2, labels = "AUTO",
label_size = 16)
喜欢
0
赠金笔