Question

由于某种原因，我有一个包含相同名称的列的数据框。我希望将这些列与相同的名称组合在一起，删除重复项

我尝试使用merge但我不想像merge（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))

R合并具有相同列名的同一文件中的列并删除重复项

1 个答案: