r - R 中 apply 中的 equal() 行为

Question

这很奇怪。

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])) ) 

或者:

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() 中一样。

Answer 1

可能

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

其中x是数据框。

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