使用na。rm=T，在带有do.call的pmin中

Question

我想提取存储在列表中的几个矩阵的每个元素的最小值。我正在使用pmin：

do.call(pmin, mylist)

问题在于，这些矩阵的某些元素是 NA，pmin 产生一个 NA，我希望它在排除 NA 后产生最小值。我试图使用do.call（pmin（na.rm=T），我的列表）来解决我的问题

但是我得到一个错误。我也用这个答案试过:data.table和pmin用na.rm=TRUE参数，但是我得到错误是因为。SD不在环境上。类似问题的简单代码是:

mymat1 <- matrix(rnorm(10), ncol=2)

mymat2 <- matrix(rnorm(10), ncol=2)
mymat2[2,2] <- NA

mymat3 <- matrix(rnorm(10), ncol=2)

mylist <- list(mymat1, mymat2, mymat3)

do.call(pmin, mylist)

我在结果矩阵的位置[2，2]得到一个NA，我想得到忽略NAs的最小值。有什么建议吗？谢谢你。

Answer 1

如果您使用purrr/tidyverse，您可以使用purrr::调用。

library(purrr)
invoke(pmin,mylist,na.rm=TRUE)
#            [,1]       [,2]
# [1,] -0.3053884 -1.3770596
# [2,]  0.9189774 -0.4149946
# [3,] -0.1027877 -0.3942900
# [4,] -0.6212406 -1.4707524
# [5,] -2.2146999 -0.4781501

它基本上是do.call与... 参数，其源代码或多或少是@akrun的答案：

function (.f, .x = NULL, ..., .env = NULL) 
{
  .env <- .env %||% parent.frame()
  args <- c(as.list(.x), list(...))
  do.call(.f, args, envir = .env)
}

purrr::部分也很有趣：

pmin2 <- partial(pmin,na.rm=TRUE)
do.call(pmin2,mylist)
#            [,1]       [,2]
# [1,] -0.3053884 -1.3770596
# [2,]  0.9189774 -0.4149946
# [3,] -0.1027877 -0.3942900
# [4,] -0.6212406 -1.4707524
# [5,] -2.2146999 -0.4781501

Answer 2

将< code>na.rm = TRUE连接为命名的< code>list元素，然后将< code>pmin与< code>do.call一起使用，以便找到参数< code>na.rm

do.call(pmin, c(mylist, list(na.rm = TRUE)))
#          [,1]       [,2]
#[1,] -1.0830716 -0.1237099
#[2,] -0.5949517 -3.7873790
#[3,] -2.1003236 -1.2565663
#[4,] -0.4500171 -1.0588205
#[5,] -1.0937602 -1.0537657