R 中 apply 中的 equal() 行为

这很奇怪。

apply( matrix(c(1,NA,2,3,NA,NA,2,4),ncol = 2), 1, function(x) identical(x[1], x[2]) )
#[1] FALSE  TRUE  TRUE FALSE
apply( data.frame(a = c(1,NA,2,3),b = c(NA,NA,2,4)), 1, function(x) identical(x[1], x[2]) )
#[1] FALSE FALSE FALSE FALSE
apply( as.matrix(data.frame(a = c(1,NA,2,3),b = c(NA,NA,2,4))), 1, function(x) identical(x[1], x[2]) )
#[1] FALSE FALSE FALSE FALSE

这是由于 joran 下面所示的名称属性造成的。我可以通过以下方式获得我期望的结果：

apply( data.frame(a = c(1,NA,2,3),b = c(NA,NA,2,4)), 1, function(x) identical(unname(x[1]), unname(x[2])) ) 

or:

apply( data.frame(a = c(1,NA,2,3),b = c(NA,NA,2,4)), 1, function(x) identical(x[[1]], x[[2]]) ) 

有没有更自然的方法来解决这个问题？似乎应该有一个忽略属性的选项，就像在 all.equal() 中一样。

Probably

mapply(identical, x$a, x$b)
#[1] FALSE  TRUE  TRUE FALSE 

where x是一个数据框。

顺便说一句，使用apply使用数据框几乎总是一个错误。它将数据框强制为矩阵，这通常会导致意外的结果。