使用来自另一个tibble的字符向量对一个tibble的列进行子集化

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))或其他＆＃34;手册＆＃34;无法输入列名。

数据

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]