将函数应用于 R 中的列表矩阵

Question

我有一个列表矩阵。

如何将函数应用到每组列表和 return 与原始矩阵维度相同的矩阵？

我试过 apply(X=data.matrix , MARGIN=c(1,2) , function(x) min(x$P) ) 但它 return 被 Error in min(x$P) : (converted from warning) no non-missing arguments to min; returning Inf

编辑：我拥有的数据类型示例：

data.matrix = list()

data.matrix$first = list()
data.matrix$second = list()
data.matrix$third = list()

data.matrix$first$a = data.frame(P=runif(3))
data.matrix$first$b = data.frame(P=runif(3))
data.matrix$first$c = data.frame(P=runif(3))

data.matrix$second$a = data.frame(P=runif(3))
data.matrix$second$b = data.frame(P=runif(3))
data.matrix$second$c = data.frame(P=runif(3))

data.matrix$third$a = data.frame(P=runif(3))
data.matrix$third$b = data.frame(P=runif(3))
data.matrix$third$c = data.frame(P=runif(3))

data.matrix = do.call(rbind,data.matrix)

我想在矩阵的每个元素上获取 min（或其他任何内容）。

谢谢！

Answer 1

你可以试试

sapply(data.matrix, function(x) min(x$P))

如果 min 值应替换 P 列

lapply(data.matrix, function(x) {x$P <- min(x$P);x})

将函数应用于 R 中的列表矩阵

apply a function to a matrix of lists in R

r

list

matrix

apply