检查列名并绑定它们

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]))))

check column names and bind them