Что-то простое, например sum(df$a == df$b)
, даст вам правильный ответ, при условии, что в данных нет NA
.
Если вы хотите быть в безопасности, вы можете использовать что-то вроде этого:
`%==%` <- function(a,b) {
ana <- is.na(a)
bna <- is.na(b)
(ana & bna) | (!ana & !bna & a==b)
}
x1 <- c(1,2,NA,4)
x2 <- c(2,2,NA,NA)
x1 %==% x2
# [1] FALSE TRUE TRUE FALSE
sum(x1 %==% x2)
# [1] 2