1、交集intersect
> x <- 1:4
> y <- 3:7
> x [1] 1 2 3 4
> y [1] 3 4 5 6 7
> intersect(x,y) [1] 3 4
2、并集union
> x <- 1:4
> y <- 3:7
> x [1] 1 2 3 4
> y [1] 3 4 5 6 7
> union(x,y) [1] 1 2 3 4 5 6 7
3、找不同setdiff
> x <- 1:4
> y <- 3:7
> x [1] 1 2 3 4
> y [1] 3 4 5 6 7
> setdiff(x,y) [1] 1 2
> setdiff(y,x) [1] 5 6 7
4、判断是否相同setequal
> x <- 1:4
> y <- 3:7
> x [1] 1 2 3 4
> y [1] 3 4 5 6 7
> setequal(x,y) [1] FALSE > z <- 3:7
> setequal(x,z) [1] FALSE > setequal(y,z) [1] TRUE