你可以做得到x | y
一个矢量化的结果。x || y
仅将 的第一个元素与x
的第一个元素进行比较y
。
要理解这一点,请考虑以下几点:
TRUE | FALSE
# [1] TRUE
TRUE || FALSE
# [1] TRUE
c(TRUE, FALSE) | c(TRUE, FALSE)
# [1] TRUE FALSE
c(TRUE, FALSE) || c(TRUE, FALSE) # only first element is compared
# [1] TRUE
c(FALSE, TRUE) | c(FALSE, TRUE)
# [1] FALSE TRUE
c(FALSE, TRUE) || c(FALSE, TRUE) # only first element is compared
# [1] FALSE
mapply
这里不需要,因为那只是重新创建以下行为|
:
identical(c(FALSE, TRUE) | c(FALSE, TRUE), mapply(function(x,y) x || y, c(FALSE, TRUE),c(FALSE, TRUE)))
# [1] TRUE
identical(c(TRUE, FALSE) | c(FALSE, TRUE), mapply(function(x,y) x || y, c(TRUE, FALSE),c(FALSE, TRUE)))
# [1] TRUE
mapply
计算成本也高得多:
microbenchmark::microbenchmark(mapply(function(x,y) x||y, x, y), x | y)
Unit: microseconds
expr min lq mean median uq max neval cld
mapply(function(x, y) x || y, x, y) 1495.294 1849.006 2186.77275 2012.776 2237.936 5320.702 100 b
x | y 27.713 28.868 39.97163 33.871 38.297 166.657 100 a