R：返回具有多次出现的唯一整数向量的函数

Question

提示： 给定一个整数向量，编写一个函数，返回具有多次出现的那些唯一整数的向量，并将结果放在数据框中。

我不知道如何隔离多次出现的整数。也许使用唯一功能？

我想我会想要用以下内容显示结果：

table()
as.data.frame(table())

非常感谢任何帮助！

Answer 1

> sample(1:10, 10, replace=TRUE) -> x
> x
 [1]  5  3  2 10 10  5  9  5  5  6
> y <- rle(sort(x))
> y$values[y$lengths > 1]
[1]  5 10
> y$lengths[y$lengths > 1]
[1] 4 2

或使用table：

> table(x)[table(x) > 1]
x
 5 10 
 4  2