데이터마이너를 꿈꾸며

1. 집합

> library(prob)
> U=c('a','b','c','d','e','f')
> A=c('a','b','c','d')
> B=c('a','d','e','f')
> C=c('a','b','c')
> union(A,B) #AUB
[1] "a" "b" "c" "d" "e" "f"
> intersect(A,B) #A∩B
[1] "a" "d"
> intersect(union(A,B),C) #(AUB)∩C
[1] "a" "b" "c"
> setdiff(A,B) #A-B
[1] "b" "c"
> setdiff(union(A,B),C) #(AUB)-C
[1] "d" "e" "f"

2. 벤 다이어그램

> library(VennDiagram)
> grid.newpage() #새페이지
> venn.plot<-draw.triple.venn(area1=65,area2=75,area3=85,n12=35,n23=15,n13=25,n123=5,
+ category=c('First','Second','Third'),
+ fill=c('blue','red','green'),lty='blank',
+ cex=2,cat.cex=2,cat.col=c('blue','red','green')) #cex=숫자크기, cat.cex=카테고리크기
> grid.draw(venn.plot)