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