用另一个小标题中的字符向量设置小标题的列

Question

我有两个小题词

>a.tibble

names other
 a      0
 c      0
 d      0

>b.tibble

a   b   c   d  e
1   1   1   1  1
1   1   1   1  1

我想使用names <- select(a.tibble,names)来子集b.tibble以使c.tibble ：

>c.tibble

a   c   d  
1   1   1   
1   1   1 

我的子集是非常重要names ，因为在现实中我有很多名称子集大tibble。 这样一来，通常的select(b.tibble,-c(b,e))或其他“手动”列名称的输入就不可能了。

数据

library(tibble)
a.tibble = tibble(names = c("a","c","d"), other = 0)
b.tibble = tibble(a = rep(1,2), b = 1, c = 1, d = 1, e = 1)

Answer 1

@ytk有一个对我b.tibble[, names(b.tibble) %in% a.tibble$names]的答案b.tibble[, names(b.tibble) %in% a.tibble$names]