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

Question

我有一个列表矩阵。

如何将函数应用于每组列表并返回与原始矩阵相同维度的矩阵？

我尝试了apply(X=data.matrix , MARGIN=c(1,2) , function(x) min(x$P) )，但它返回了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})