ベクトルがあり、最高値と最低値を返すことができますが、5つの最上位値を返す方法は?このための簡単な1行のソリューションはありますか?
> a <- c(1:100)
> tail(sort(a),5)
[1] 96 97 98 99 100
x[order(x)[1:5]]
はい、head( X, 5)
ここで、X
はソートされたベクトルです。
tail(sort.int(x, partial=length(x) - 4), 5)
Sort.intをpartialとともに使用すると、完全なソートを(潜在的に)行わないことにより(潜在的に)高速になるという利点があります。しかし実際には、私の実装は少し遅く見えます。たぶんこれは、パラメーターの部分!= NULLを使用すると、クイックソートではなくシェルソートが使用されるためです。
> x <- 1:1e6
> system.time(replicate(100, tail(sort.int(x, partial=length(x) - 4), 5)))
user system elapsed
4.782 0.846 5.668
> system.time(replicate(100, tail(sort(x), 5)))
user system elapsed
3.643 0.879 4.854