Venn图的绘制

Posted on | Edited on

Using Wolfram Alpha

1.

(A intersect B) union (C intersect D)
or in Mathematica

1
2
WolframAlpha["(A \[Intersection] B) \[Union] (C \[Intersection] D)", \
{{"VennDiagram", 1}, "Content"}]

效果预览:

2.

(A intersect B) union (C intersect D union E)
or in Mathematica

1
2
WolframAlpha["A intersection B union (C intersection D union E)", \
{{"VennDiagram", 1}, "Content"}]

效果预览:

Using R Language

以venneuler包为例
安装命令install.packages("venneuler")
载入命令library(venneuler)
绘制命令

1
2
3
4
5
6
7
8
9
10
11
m <<- data.frame(elements=c("1","2","2","2","3"), sets=c("A","A","B","C","C"))
v <<- venneuler(m)
plot(v)

m <- as.matrix(data.frame(A=c(1.5, 0.2, 0.4, 0, 0), B=c(0  , 0.2, 0  , 1, 0), C=c(0  , 0  , 0.3, 0, 1)))
# without weights
v <<- venneuler(m > 0)
plot(v)
# with weights
v <<- venneuler(m)
plot(v)

此外，gplots，VennDiagram包也能绘制不多于5 sets的Venn Diagram。
详细可参考【R作图】在R中绘制韦恩图的几种方法 和 一些漂亮的venn图

online tools