Найти равные столбцы в data.frames

Question

У меня есть два объекта data.frame 'x' и 'ans1', есть 500 столбцов в 'x' и 7 в 'ans1' Как найти имена столбцов из 'x ', которые равны столбцам из' ans1 '?

Answer 1

С %in%:

names(x) %in% names(ans1) 

См ?match более подробно.

Answer 2

можно было бы использовать identical() с digest пакета:

library(digest) 

x <- data.frame(aa = c("s", "d", "f"), bb = 1:3) 
ans1 <- data.frame(bb = c("d", "s", "z"), cc = 1:3) 

(myMatches<-lapply(x, function(myX) sapply(ans1, 
    function(y) identical(digest(y), digest(myX)))) 
) 

# $aa 
# bb cc 
# FALSE FALSE 

# $bb 
# bb cc 
# FALSE TRUE 

Это указывает, что данные в столбце bb в data.frame x равно данных в столбце cc в data.frame ans1.

Чтобы получить только спички,

unlist(lapply(myMatches, function(x) which(x))) 
# bb.cc 
# 2 

Опять же, данные в колонке bb от x идентичны данным в столбце cc в ans1

Answer 3

Как об этом:

mtcarsSub <- mtcars[c(1,4,7)] 
names(mtcarsSub) <- letters[1:3] 
matches <- sapply(mtcarsSub,function(x) sapply(mtcars,identical,x)) 
matches 
     a  b  c 
mpg TRUE FALSE FALSE 
cyl FALSE FALSE FALSE 
disp FALSE FALSE FALSE 
hp FALSE TRUE FALSE 
drat FALSE FALSE FALSE 
wt FALSE FALSE FALSE 
qsec FALSE FALSE TRUE 
vs FALSE FALSE FALSE 
am FALSE FALSE FALSE 
gear FALSE FALSE FALSE 
carb FALSE FALSE FALSE 

names(mtcars)[apply(matches,2,which)] 
[1] "mpg" "hp" "qsec"