トップ100とボトム100の値を抽出するR

Question

私はRのスクリプトで新しいです、ここでは私の単純な問題 ファイルから一度のコマンドでトップ100とボトム100の値を抽出する方法です。

top<- head(xdata, 100) 

bottom <- head(xdata, 100) 

が、私はのnがあなたの長さである場合は、それをこのように行うことができます...このように、単一のコマンドで

both <- head(xdata, 100) + head(xdata, 100) 

おかげ

Answer 1

を

をしたいですデータベクトル。

# Fake data 
n <- 10^6 
xdata <- runif(n) 

# Get first 100 and last 100 in vector 
v <- xdata[c(1:100, (n-99):n)] 

また、コメントで述べた誰かとしてtailを使用することができますが、私は上記したように、インデックスに、より効率的です。これを実証する：

# Load microbenchmark package to compare computation speed 
library(microbenchmark) 
library(microbenchmark) 
m <- microbenchmark("direct index" = xdata[c(1:100, (n-99):n)], 
      "head/tail" = c(head(xdata, 100), tail(xdata, 100))) 
print(m) 
#Unit: microseconds 
#  expr  min  lq  mean median uq  max  neval 
#direct index 2.814 3.028 3.54298 3.422 3.6950 16.255 100 
#head/tail  29.239 30.691 34.61539 31.628 33.0045 110.648 100 

私のマシンでは6.5倍高速です。