Rで、共通した要素を抜き出す。

二つのベクトルがあったとき

それらに共通した要素を抜き出す方法を二つ紹介します。

> x <- c(1:10) > y <- c(3:5) > x
[1] 1 2 3 4 5 6 7 8 9 10
> y
[1] 3 4 5
> a <- x[x%in%y] > a
[1] 3 4 5
> z <- c(4,6,13,49) > b <- intersect(x,z) > b
[1] 4 6