将函数应用于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})