r - ベクトル内の異なる値の数を数える

Question

「いくつの異なる値があるか」を取得しようとしているスカラー値のベクトルがあります。

たとえば、group <- c(1,2,3,1,2,3,4,6)一意の値は1,2,3,4,6そう取得したいです5。

私が思いついた：

length(unique(group))

しかし、それが最も効率的な方法かどうかはわかりません。これを行うより良い方法はありませんか？

注:私のケースは例よりも複雑で、最大で 25 の異なる値を持つ約 1000 の数字で構成されています。

Answer 1

パッケージrleからご利用いただけますbase

  x<-c(1,2,3,1,2,3,4,6)
  length(rle(sort(x))$values)

rleは 2 つのベクトル (lengthsおよびvalues) を生成します。valuesベクトルの長さは、一意の値の数を示します。

Answer 2

uniqueN関数 fromdata.tableは と同等length(unique(group))です。また、大規模なデータセットでは数倍高速ですが、例ではそれほど高速ではありません。

library(data.table)
library(microbenchmark)

xSmall <- sample.int(25, 1000, TRUE)
xBig <- sample.int(2500, 100000, TRUE)
microbenchmark(length(unique(xSmall)), uniqueN(xSmall), 
               length(unique(xBig)), uniqueN(xBig))

#Unit: microseconds
#                    expr      min        lq       mean    median        uq      max neval cld
#1 length(unique(xSmall))   17.742   24.1200   34.15156   29.3520   41.1435  104.789   100 a  
#2        uniqueN(xSmall)   12.359   16.1985   27.09922   19.5870   29.1455   97.103   100 a  
#3   length(unique(xBig)) 1611.127 1790.3065 2024.14570 1873.7450 2096.5360 3702.082   100 c
#4          uniqueN(xBig)  790.576  854.2180  941.90352  896.1205  974.6425 1714.020   100 b