用于显示两个或多个对象之间的差异的函数

Question

当使用R,我通常使用identical(a,b)以检查对象a和b是相同的.如果这返回FALSE我希望能够看到这些差异在哪里...是否有一个功能可以告诉我这个？

Answer 1

你正在寻找all.equal()

a <- data.frame(A = 1)
b <- data.frame(B = 1)
all.equal(a, b)

[1] "Names: 1 string mismatch"

d <- data.frame(B = 2)
all.equal(b, d)

"Component 1: Mean relative difference: 1"

all.equal(a, d)

[1] "Names: 1 string mismatch"                
[2] "Component 1: Mean relative difference: 1"

Answer 2

这不能完全回答您的问题，但是您可能也对“ compare”软件包感兴趣。

特别是，allowAll=TRUE该compare()函数有一个参数“ ”，该参数似乎试图转换比较对象以匹配输入，并指出需要进行哪些转换以及对象是否相同。

首先，一些数据。“ a”，“ b”，“ d”和“ e”非常相似。

a <- data.frame(A = 1:10, B = LETTERS[1:10])
b <- data.frame(C = 1:10, B = LETTERS[1:10])
d <- data.frame(A = 1:10, B = letters[1:10])
e <- data.frame(A = 1:10, B = letters[1:10])
f <- data.frame(A = c(1, 3, 4, 5, 6, 7, 8, 11, 12, 13), 
                B = LETTERS[c(1, 3, 2, 4, 5, 6, 9, 8, 7, 10)])

现在，使用compare来查看是否能够使数据相同。对于“ b”，“ d”和“ e”，它能够应用某些转换以使其与“ a”相同，但是在比较“ f”和“ a”时却无法做到。

(w <- compare(a, b, allowAll=TRUE))
# TRUE
#   renamed
#   dropped names
(x <- compare(a, d, allowAll=TRUE))
# TRUE 
#   [B] dropped attributes
(y <- compare(a, e, allowAll=TRUE))
# TRUE 
#   [B] dropped attributes
(z <- compare(a, f, allowAll=TRUE))
# FALSE [FALSE, FALSE]
#   [A] coerced from <numeric> to <integer>

您还可以查看有关比较对象的更多详细信息。

str(x)
# List of 8
#  $ result          : logi TRUE
#  $ detailedResult  : Named logi [1:2] TRUE TRUE
#   ..- attr(*, "names")= chr [1:2] "A" "B"
#  $ transform       : Named chr "[B] dropped attributes"
#   ..- attr(*, "names")= chr "B"
#  $ tM              :'data.frame':  10 obs. of  2 variables:
#   ..$ A: int [1:10] 1 2 3 4 5 6 7 8 9 10
#   ..$ B: int [1:10] 1 2 3 4 5 6 7 8 9 10
#  $ tC              :'data.frame': 10 obs. of  2 variables:
#   ..$ A: int [1:10] 1 2 3 4 5 6 7 8 9 10
#   ..$ B: int [1:10] 1 2 3 4 5 6 7 8 9 10
#  $ tMpartial       :'data.frame': 10 obs. of  2 variables:
#   ..$ A: int [1:10] 1 2 3 4 5 6 7 8 9 10
#   ..$ B: Factor w/ 10 levels "A","B","C","D",..: 1 2 3 4 5 6 7 8 9 10
#  $ tCpartial       :'data.frame': 10 obs. of  2 variables:
#   ..$ A: int [1:10] 1 2 3 4 5 6 7 8 9 10
#  ..$ B: Factor w/ 10 levels "a","b","c","d",..: 1 2 3 4 5 6 7 8 9 10
#  $ partialTransform: chr(0) 
#  - attr(*, "class")= chr [1:2] "multipleComparison" "comparison"

该软件包还包括其他一些功能，以及许多可以限制或扩展比较之前允许的转换类型的参数。

Answer 3

您可以使用以下命令创建具有逻辑值的对象

a == b

其中两个对象具有FALSE不同值的值。

您还可以使用：

a[a != b]

或者

b[a != b]

看看差异在哪里。