如何使用带算术函数的apply（）（R）

Question

在R中，如何将apply与算术函数一起使用？例如，给定m-by-n矩阵U，列c_1，c_2，...，c_n，我想对每列c_i执行以下操作：

表示c_i中的每个元素，

u<-u+min(c_i)*sign(min(c_i))*1.05

Answer 1

这就是你要找的东西：

apply(U, 2, function(c_i) { c_i + min(c_i)*sign(min(c_i))*1.05 })

Answer 2

我知道您要求apply的答案，但是，我认为我会采用另一种可能稍快一些的方法。

library(matrixStats)
U + abs(colMins(U))[col(U)] * 1.05

@Sam Dickson，谢谢你指出abs(min(c_i))与min(c_i)*sign(min(c_i))相同