1、
> a <- c(1,2,2,2,3,1,1,3) > a [1] 1 2 2 2 3 1 1 3 > unique(a) [1] 1 2 3 > duplicated(a) [1] FALSE FALSE TRUE TRUE FALSE TRUE TRUE TRUE > !duplicated(a) [1] TRUE TRUE FALSE FALSE TRUE FALSE FALSE FALSE > a[!duplicated(a)] [1] 1 2 3