如何根据另一个数据框中的列从数据框中提取所有列？

Question

我有两个数据框。我想基于另一个数据框列从数据框中提取所有列。

df1:

sample
 GY
 AP
 A9
 MB
 AU

df2:

 num  start end length  GY A9 MB AP JK GH AU
  2    23    24   567   5   6  7  8  9  0  1
  2    3     44   57    8   6  7  3  4  0  9
  2    234   54   67    5   6  7  8  9  0  1

result:
   num  start end length  GY A9 MB AP  AU
    2    23    24   567   5   6  7  8  1
    2    3     44   57    8   6  7  3  9
    2    234   54   67    5   6  7  8  1

我试过这种方式，但它没有成功：

 u <- df1[df1$sample %in% colnames(df2),]

谁能告诉我怎么做？