使用 mapply() 从 Map() 再现结果

Question

取以下数据框和向量，

df <- data.frame(x = 1:3, y = 4:6, z = 7:9)
v <- c(5, 10, 15)

假设我想乘以 df按 v 的元素按列排列, 意思 df[1] * v[1] , df[2] * v[2] , 和 df[3] * v[3]
我可以用 Map 做到这一点

> Map(`*`, df, v)
$x
[1]  5 10 15

$y
[1] 40 50 60

$z
[1] 105 120 135 

现在，由于 Map被定义为

> Map
function (f, ...) 
{
    f <- match.fun(f)
    mapply(FUN = f, ..., SIMPLIFY = FALSE)
}
<bytecode: 0x3950e00>
<environment: namespace:base>

我应该能够通过以下对 mapply 的调用完全重现上述内容，这似乎是合乎逻辑的。 ， 但这种情况并非如此。

> mapply(`*`, df, v, simplify = FALSE)
# Error in .Primitive("*")(dots[[1L]][[1L]], dots[[2L]][[1L]],   
#   simplify = dots[[3L]][[1L]]) : operator needs one or two arguments

问题似乎在 "*" 的论据之内，这些参数是

> args("*")
function (e1, e2) 
NULL

因此，再尝试两次会产生类似的错误。

> mapply(`*`, e1 = df, e2 = v, simplify = FALSE)
# Error in .Primitive("*")(e1 = dots[[1L]][[1L]], e2 = dots[[2L]][[1L]],  : 
#   operator needs one or two arguments
> mapply(`*`, ..1 = df, ..2 = v, simplify = FALSE)
# Error in .Primitive("*")(..1 = dots[[1L]][[1L]], ..2 = dots[[2L]][[1L]],  : 
#   operator needs one or two arguments

这里有什么问题？我怎样才能(准确地)复制结果

Map(`*`, df, v)

与 mapply ?

Answer 1

请注意 Map电话

mapply(FUN = f, ..., SIMPLIFY = FALSE)

不是

mapply(FUN = f, ..., simplify = FALSE)

当然 R 是区分大小写的。尝试

mapply(`*`, df, v, SIMPLIFY = FALSE)
# $x
# [1]  5 10 15
# 
# $y
# [1] 40 50 60
# 
# $z
# [1] 105 120 135

反而。与 simplify = FALSE ，它正在尝试调用

`*`(df[[1]], v[1], simplify = FALSE)

这就是导致该错误的原因。