R向量找到共同的元素並刪除不共同的元素

Question

我想找到兩個向量共有的元素。 我可以使用intersect(a,b)進行相同的操作。

但是然后我想刪除不常見的a和b元素，並在不更改元素順序的情況下將a和b縮小為較小的尺寸

a <- c(1,3,5,7,9)
b <- c(9,3,6,8,10)

我想要新的a和b

a will be (3,9) and b will be (9,3)

Answer 1

遵循弗蘭克的建議。

最簡單的方法是使用intersect

a <- c(1,3,5,7,9)
b <- c(9,3,6,8,10)

# Use `intersect` on both ways: 
a <- intersect(a,b)
b <- intersect(b,a)

# Desired results:
a
[1] 3 9
b
[1] 9 3

干杯

Answer 2

a <- a[a%in%b]
[1] 3 9
b <- b[b%in%a] 
[1] 9 3