如：x=c(2,3,1,2,3) 返回 x=c(2,3,2,3)[s:19]
如果我就用table或者duplicated之类的挑选出有重复的元素，然后 %in% 之类的吧
as.numeric(names(table(x)))
x[x %in% x[duplicated(x)]]
不过这个需求真奇特
