r - 检查列名是否唯一的函数

Question

我正在开发一个程序，现在我正在寻找一种在上传文件时检查列名称的方法。如果名称不唯一，则应写入错误。有没有办法做到这一点？

例如，如果我有这些 df:

> a <- c(10, 20, 30)
> b <- c(1, 2, 3)
> c <- c("Peter", "Ann", "Mike")
> test <- data.frame(a, b, c)

和:

library(dplyr)
test <- rename(test, Number = a)
test <- rename(test, Number = b)
> test
  Number Number     c
1     10      1 Peter
2     20      2   Ann
3     30      3  Mike

如果这是一个文件，我如何检查列名是否唯一。好的结果只会是 True 或 False!

谢谢!

Answer 1

我们可以用:

any(duplicated(names(df))) #tested with df as iris
[1] FALSE

关于 OP 的数据:

any(duplicated(names(test)))
[1] TRUE

以上可以使用@sindri_baldur 和@akrun 建议的以下内容进行简化

anyDuplicated(names(test))

如果您想知道有多少重复:

length(which(duplicated(names(test))==TRUE))
[1] 1

这也可以简化为(如@sindri_baldur 所建议的:

sum(duplicated(names(test)))