반응형
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)
반응형
