根据R中另一个数据框中的列过滤数据框中的列

Question

给出一个数据帧df1（N列= 4500，N行= 12）：

       gen1 gen2 gen3 gen4 gen5
samp1   6    7    6    0   1
samp2   15   88   99   44  9
samp3   2    4    4    12  55
samp4   67   3    2    6   3

和另一个df2（N cols = 300，N行= 12），包含相同的行名

       gen2 gen4
samp1   7   0
samp2   88  44
samp3   4   12
samp4   3   6

我想基于列标题获取一个df3（N cols = 4200，N行= 12），其中包含与df2中的列不匹配的df1列。示例：

        gen1 gen3 gen5
samp1   6     6    1
samp2   15   99    9
samp3   2     4   55
samp4   67    2    3

在实际数据框中，列名是fasta序列。
我尝试了以下操作，但没有成功：

df3<-df1[!colnames(df1)%in%df2[,1]] 

您对在R中运行此程序有什么建议吗？非常感谢！