r - 在 data.frames 中查找相等的列

Question

我有两个 data.frame 对象“x”和“ans1”，“x”中有 500 列，“ans1”中有 7 列
如何从“x”中找到与“ans1”中的列相同的列名？

Answer 1

可以使用 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