检查列名并绑定它们

Question

我有一个数据框，其中行列名

a <- c("Round_and_Centre", "Number", "Round")
b <- c("Round_and_Centre", "Number", "Round")
c <- c("Round_and_Centre", "Number", "Round")

我想检查每列中的名称是否与相同的列名相同fn ...如果它们相同，我需要rbind行来获取输出

我无法找到检查列名的函数，如果它们相同则输出为true。如果输出为真，那么rbind他们

Answer 1

if (all(colnames(a)==colnames(b))&all(colnames(a)==colnames(c)&all(colnames(b)==colnames(c)){
  d <- rbind(a,b)
  e <- rbind(d,c)
{

Answer 2

一个选项是

all(unlist(Map(`==`, list(a), list(b,c))))

或使用combn

all(combn(c("a", "b", "c"),2, FUN = function(x) identical(get(x[1]), get(x[2]))))