Существует ли простой способ сравнить объединенный фрейм данных с фреймами данных другого размера? - PullRequest
Новая
       4

Существует ли простой способ сравнить объединенный фрейм данных с фреймами данных другого размера?

1 голос
/ 31 октября 2019

Я делаю проверку данных объединенного фрейма данных (A + B) с фреймом исходных данных (A и B). Я объединил A и B DFS и хочу убедиться, что они слились правильно. Объединенный df содержит все те же имена переменных, что и исходные dfs. Проблема в том, что объединенный df отличается от размера исходного dfs. Есть ли простой код для этого?

В Excel это будет выглядеть примерно так: = IF (Merged_dataframe! A2 = A.xlsx! $ A $ 2, TRUE, result) Но для всех строк вобъединить набор данных, и я хочу, чтобы он распечатывал результат true, если они совпадают.

Я новичок в R, и я не знаю, с чего начать, но попробовал это: 

 A<-First.df
 B<-Second.df
 A_B <- cbind(A, B)
 A_B == A
 A_B == B

Но проблема в том, что A_B имеет другой размер и поэтому нене работает и по праву, поэтому я получаю эту ошибку: '==' определено только для фреймов данных одинакового размера

Пожалуйста, помогите.

Спасибо!

1 Ответ

0 голосов
/ 31 октября 2019

Вы можете проверить сравнение data.frame здесь: Сравните два data.frame, чтобы найти строки в data.frame 1, которых нет в data.frame 2

Предполагаяу вас одинаковое количество строк в A и B, вы можете проверить разницу data.frame, например: 

# Using toy data set
x <- iris[1:9,] # use AB_df[ , c("the_column_vector_to check")]
y <- iris[8:11,] # use A_df or B_df

# Test for equality
all.equal(x, x) # TRUE if all equal
#> [1] TRUE
all.equal(x, y) # gives the differences
#> [1] "Attributes: < Component \"row.names\": Numeric: lengths (9, 4) differ >" 
#> [2] "Component \"Sepal.Length\": Numeric: lengths (9, 4) differ"              
#> [3] "Component \"Sepal.Width\": Numeric: lengths (9, 4) differ"               
#> [4] "Component \"Petal.Length\": Numeric: lengths (9, 4) differ"              
#> [5] "Component \"Petal.Width\": Numeric: lengths (9, 4) differ"               
#> [6] "Component \"Species\": Lengths: 9, 4"                                    
#> [7] "Component \"Species\": Lengths (9, 4) differ (string compare on first 4)"
...