试试下面的代码


这里不知道unique对缺失值怎么处理，如果有就简单些了。

First use the duplicated function to find where are duplicates (references) then assign it to a new vector.

v1 <- c(1,4, 1, 2, 2, 3, 3, NA)

v1_NO_NA<- v1[!is.na(v1)]

v1_DEDUP<- v1_NO_NA[!duplicated(v1_NO_NA)]

v1_DEDUP