R - 使用 Reduce 比较对象的向量

Question

我正在尝试使用 Reduce 比较对象的向量 a

• all.equal 不起作用
• == 适用于数字，但不足以用于对象。

我更喜欢不使用现有包但仅使用 R 核心功能的解决方案

示例（简化以使用数字向量代替对象）：

test <- c(1,1,1,1,1)

Reduce("==",test)

[1] TRUE

我不明白为什么 == 有效而 all.equal 无效

Reduce(all.equal,test)

[1] "Modes: character, numeric"              
[2] "Lengths: 3, 1"                          
[3] "target is character, current is numeric"

最后一句话：

这不是重复的。我对比较对象而不是数值

的解决方案感兴趣

数值向量元素的比较：查看stackoverflow上的现有解决方案 Test for equality among all elements of a single numeric vector

Answer 1

您可以在sapply 中尝试identical，并将每个元素与第一个元素进行比较。

x <- list(list(1), list(1))
all(sapply(x[-1], identical, x[[1]]))
#[1] TRUE

x <- list(list(1), list(2))
all(sapply(x[-1], identical, x[[1]]))
#[1] FALSE

Answer 2

如果列表中元素的所有成对比较都相同，则返回 TRUE 的函数：

all_pairs_equal <- function(elements) {
    all(mapply(function(x, y) identical(elements[x], elements[y]), 1, seq(1, length(elements))))
}

all_pairs_equal(list(iris, iris, iris))
#> [1] TRUE
all_pairs_equal(list(1, 1, 1))
#> [1] TRUE
all_pairs_equal(list(iris, iris, 2))
#> [1] FALSE

^{由reprex package (v2.0.1) 于 2021-10-05 创建}