看到一个有意思的问题，删除R中不在数据框B中的数据帧A中的列

Question

我有两个数据框，说A和B.A中的列数比B大，而且他们都已经有了它们的名字。我想知道是否有删除A中但不B中的列的方法？

例：

colnames(A) -> x,y,z,t
colnames(B) -> x,y
some deleteColnames(A\B)
colnames(A) -> x,y
colnames(B) -> x,y