R如果列值等于列名，如何删除列

I have a data set that contains a bunch of columns where the column values(all values of that column) is exactly the same as that column name. How can I delete that column. I cannot delete the columns one by one as there are over 700 variables. Thanks!I have a data set that contains a bunch of colu