list取交集并集

> a<-c(2,3,4,5,6)
> b<-c(5,6,7,8,9)
> c<-c(2,2,2,3,4)
> d<-c(3,6,6,6,6)
> #取交集
> intersect(a,b)
[1] 5 6
> #取两个list中都存在的部分
> union(a,b)
[1] 2 3 4 5 6 7 8 9
> #取前面一个list中不含后面一个list中元素的部分
> setdiff(a,b)
[1] 2 3 4
> setdiff(b,a)
[1] 7 8 9