which.min（）与随机抽样

Question

我的变量的矢量：

x<-runif(1000,0,1) 

我想选择具有最低值的元素：

x[which.min(x)]

默认which.min(x)将返回满足此条件的第一个元素，但是，可能会发生多个元素同样低的情况。

有没有办法从这些值来采样和返回只有一个？

Answer 1

使用which找到所有这些元素的索引，这些元素等于向量的最小值并随机抽样一个（除非最小值出现一次 - 那么我们可以返回它）。

# Find indices of minima of vector 
ids <- which(x == min(x)) 

# If the minimum value appear multiple times pick one index at random otherwise just return its position in the vector 
if(length(ids) > 1) 
    ids <- sample(ids , 1) 

# You can use 'ids' to subset as per usual 
x[ids] 

Answer 2

另一个类似的方法，但一个不使用if是做一个sample与seq_along匹配的值。

这里有两个例子。 x1有多个最小值。 x2只有一个。

## Make some sample data 
set.seed(1) 
x1 <- x2 <- sample(100, 1000, replace = TRUE) 
x2[x2 == 1][-1] <- 2 ## Make x2 have just one min value 

## Identify the minimum values, and extract just one of them. 
y <- which(x1 == min(x1)) 
y[sample(seq_along(y), 1)] 
# [1] 721 

z <- which(x2 == min(x2)) 
z[sample(seq_along(z), 1)] 
# [1] 463