小编use*_*411的帖子

我有一个像矩阵

mat <- matrix(sample(100,100,replace=TRUE),nr=10)

我现在想删除每列的3个最大值,这样我就会得到一个包含7行的新矩阵.
我尝试制作每列的向量,然后删除那里的3个最大值

x1 = x[x!=max(x)]
x2 = x1[x1!=max(x1)]
x3 = x2[x2!=max(x2)]

然后将矢量放入一个新的矩阵,但由于我的矩阵有时会有很多列,我想找到一个更简单的方法.
谢谢你的帮助

我有一个包含很多行和列的大型数据框。在一列中有字符，其中一些只出现一次，另一些则出现多次。我现在想分离整个数据框，这样我最终会得到两个数据框，一个是所有行的字符在这一列中重复，另一个是所有行的字符只出现一次. 例如：

One = c(1,2,3,4,5,6,7,8,9,10)
Two = c(4,5,3,6,2,7,1,8,1,9)
Three = c("a", "b", "c", "d","d","e","f","e","g","c")
df <- data.frame(One, Two, Three)

> df
    One Two Three
1    1   4     a
2    2   5     b
3    3   3     c
4    4   6     d
5    5   2     d
6    6   7     e
7    7   1     f
8    8   8     e
9    9   1     g
10  10   9     c

我希望有两个数据框，比如

> dfSingle
    One Two Three
1    1   4     a
2    2   5     b
7    7 …