按列名删除数据框中的重复列，但将第一个保留在R

Question

我有一个名为TEST的data.frame，它具有X列数，其中一些列是重复的（按列名），我需要删除重复的列，但保持第一个列从左到右排序。

输入数据：

TEST<-data.frame("PRUEBA","PRUEBA","PRUEBA","PRUEBA")

TEST$COLUMNA1<-c("PRUEBA","PRUEBA","PRUEBA","PRUEBA")

colnames(TEST)<-c("COLUMNA1","COLUMNA2","COLUMNA3","COLUMNA1")

所需数据：

  

DESIRED_DATA <-data.frame（“ PRUEBA”，“ PRUEBA”，“ PRUEBA”）

     

colnames（DESIRED_DATA）<-c（“ COLUMNA1”，“ COLUMNA2”，“ COLUMNA3”）