Trouver les mêmes éléments avec le même index pour deux vecteurs

Question

Je cherche un moyen efficace de trouver les mêmes éléments avec le même index dans deux vecteurs et de les compter. Dire que j'ai deux vecteurs et je veux savoir combien de fois j'ai eu la réalisation [1,1] Donc, si j'ai deux vecteurs (en pratique, ils seront très grande), par exemple

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

I vouloir compter que 1 est apparu seulement une fois dans la même position de x et y. Je serais très reconnaissant pour votre aide!

Answer 1

Nous pouvons créer un matrix par cbind ing les vecteurs, vérifier si elle est égale à 1, obtenir le rowSums, si les deux vecteurs ont 1 à la même position, il sera 2 et s'il n'y a qu'un 1, la valeur sera 1. Ainsi, le convertir en un vector logique (ou ==2==1) et obtenir le nombre avec sum

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

Notez que ce vérifie également si le 1 est soit « x » ou « y » et pas seulement en 'x'

---

Ou avec Reduce

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

Notez que ces solutions peuvent être étendues à plusieurs vector s au lieu de deux

Answer 2

Pour tous ceux qui recherchent ce correctif tidyverse rapide que vous avez si désespérément besoin:

library(purrr) 

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

Pour les indices:

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