从矢量中删除两个最大的唯一数字

Question

我有x作为

x <- c("7", "2", "3", "8", "8")

我想要输出

[1] "2" "3" "8"

并删除8和7中的一个.因此删除最大的两个数字之一.

Answer 1

这是一种可能性match().

x[-match(tail(sort(unique(x)), 2), x)]
# [1] "2" "3" "8"

Answer 2

另一个选择使用 which.max

x[-c(which.max(x), match(max(x[x != max(x)]), x))]    
#[1] 2 3 8

Answer 3

有很多方法可以实现这一目标.我认为矢量x应该转换为数字,但这是有效的.

x <- (c('7','2','3','8','8')) # read in data
remove <- tail(unique(x[order(x)]),2)  # take the unique elements and sort, identifying the last 2
x[ - c(which(x==remove[1])[1], which(x==remove[2])[1])  ] #remove only the one of each of the two found