相同（）的行为在R中适用

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所示的names属性引起的。我可以通过以下方式获得我期望的结果：

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与数据框一起使用几乎总是一个错误。它会将数据框强制转换为矩阵，这通常会导致意外结果。