查找兩個矢量具有相同索引的相同元素

Question

我正在尋找一種有效方法來查找兩個矢量中具有相同索引的相同元素並對它們進行計數。 說我有兩個向量和我想知道有多少次我不得不實現[1,1] 所以，如果我有兩個向量（在實踐中，他們會非常大），例如

x=c(2,1,8,1,4) 
y=c(9,1,8,0,4) 

我想要指出1在x和y的相同位置只出現一次。 我會非常感謝您的幫助！

Answer 1

我們可以通過cbind荷蘭國際集團的載體創建matrix，檢查它是否等於1，拿到rowSums，如果這兩個向量在相同的位置有1，這將是2，如果只有一個1，該值將是1。因此，它與sum

sum(rowSums(cbind(x, y)==1)==2) 
sum(rowSums(cbind(x, y)==1)==1) 

注意，這也檢查1是否是「X」或「Y」轉換爲邏輯vector（==2或==1），並獲得數並且不僅在'x'中

---

或用Reduce

sum(Reduce(`&`, lapply(list(x, y), `==`, 1))) 

注意，這些解決方案可以擴展到多個vector s，而不是隻有兩個

Answer 2

對於那些尋找一個快速tidyverse修復，你迫切需要的：

library(purrr) 

map(list(x, y), ~.== 1) %>% reduce(., `&`) %>% sum 

對於指數：

map(list(x, y), ~.== 1) %>% reduce(., `&`) %>% which