R合並同一文件中具有相同列名的列，並刪除重復項

Question

由於某種原因，我有一個數據框包含名稱相同的列。 我希望將這些具有相同名稱的列合並，並刪除重復項

我嘗試使用合並，但是我不想像合並（x，y）一一輸入列名

也很明顯，當我使用獨特時，我沒有得到我想要的東西

a <- c(1,2,3,4,5)
data <- cbind(a,a)

b <- as.data.frame(lapply(split.default(data, colnames(data)), function(x) Reduce(`unique`, x)))

Answer 1

rm(list = ls())
cat("\014")
dev.off()

dd <- read.table("~/Downloads/test.txt" , header = F, sep = "\t")

names(dd) <- as.matrix(dd[1, ])
dd <- dd[-1, ]

oo <- lapply(unique(colnames(dd)) , function(colName){
  i <- colName
  colNu <- which(colnames(dd) == i)
  dim(dd[,colNu])
  unique(as.character(unlist(dd[,colNu])))

})

names(oo) <- unique(colnames(dd))