Sprawdzanie identycznych kolumn w ramce danych w R

Question

Załóżmy, że masz ramka danych o nazwie dane z dwóch identycznych kolumn:

A B 
1 1 
2 2 
3 3 
4 4 

Jak mogę sprawdzić, czy te dwie kolumny są identyczne i wracają jeden wartość logiczną wskazać to? To bardzo prosty pseudokod jest:

if(data$A == data$B) 
{ 
    print("Column A and B are identical") 
} 

I zostały aprowizacji z tym na trochę i nie znaleźli sposób, aby to zrobić, że nie wydaje niepotrzebnie zawiłe. Dzięki.

Answer 1

Można użyć identical

identical(DT[['A']],DT[['B']]) 

Answer 2

Można użyć all():

> data <- data.frame(A=c(1,2,3,4), B=c(1,2,3,4)) 
> all(data$A == data$B) 
[1] TRUE 

Answer 3

To może być przesadą dla swojego problemu, ale można też zajrzeć do compare() z "Porównaj" pacakge . Rozważmy następujące przykłady:

> data <- data.frame(A = c(1, 2, 3, 4), B = c(1, 2, 3, 4)) 
> compare(data[1], data[2]) ## Should be false 
FALSE [TRUE] 
> compare(data[1], data[2], ignoreNames = TRUE) # Allow different names 
TRUE 
    dropped names 
> data <- data.frame(A = c(1, 2, 3, 4), B = as.character(c(1, 2, 3, 4))) 
> str(data) ## "B" is now a factor, so use `coerce` to test for equality 
'data.frame': 4 obs. of 2 variables: 
$ A: num 1 2 3 4 
$ B: Factor w/ 4 levels "1","2","3","4": 1 2 3 4 
> compare(data[1], data[2], ignoreNames = TRUE, coerce = TRUE) 
TRUE 
    [A] coerced from <factor> to <numeric> 
    dropped names 

Istnieje ogólna logiczny argument allowAll, które można ustawić na TRUE aby umożliwić funkcja compare aby wypróbować różne transformacje do testowania równości.