Как проверить, имеют ли два фрейма данных одинаковые имена столбцов?

Question

У меня есть два кадра данных, как это:

quest1 <- c(5,5,5) 
quest2 <- c(5,5,5) 
quest3<- c("a","b","c") 
quest4 <- c(7,7,7) 
quest5 <- c(8,8,8) 


myquest1 <- data.frame(quest1,quest2,quest3) 

myquest2 <- data.frame(quest4,quest5) 

Как я могу проверить, если они имеют одинаковые имена столбцов с IfElse или если заявление петлевой с предупреждением или остановить функцию? Или есть другой ..? Я бы предпочел первый.

Answer 1

Я думаю, что вам нужно что-то вроде следующего с помощью функции.

Используя ваш пример:

quest1 <- c(5,5,5) 
quest2 <- c(5,5,5) 
quest3<- c("a","b","c") 
quest4 <- c(7,7,7) 
quest5 <- c(8,8,8) 

myquest1 <- data.frame(quest1,quest2,quest3) 
myquest2 <- data.frame(quest4,quest5) 
myquest3 <- data.frame(quest1,quest2,quest3) 


my_func <- function(x,y) { 
    for (i in names(x)) { 
     if (!(i %in% names(y))) { 
      print('Warning: Names are not the same') 
      break 
     } 
     else if(i==tail(names(y),n=1)) { 
      print('Names are identical') 
     } 
    } 
} 


> my_func(myquest1,myquest2) 
[1] "Warning: Names are not the same" 
> my_func(myquest1,myquest3) 
[1] "Names are identical"