r - R从矩阵上的条件运算创建一个向量

Question

我想通过将条件语句应用于每一列来从矩阵创建一个向量。条件语句是，如果列中的任何值超过固定阈值，那么向量中的值应该是该列的最后一行，如果没有，那么向量中的值应该是 0。最后，我最终应该得到一个与我的矩阵列数相同的向量。关于如何做到这一点的任何提示？

Answer 1

类似的东西？

mat <- matrix(rnorm(100),nrow=10,ncol=10)
apply(mat, 2, function(v) {
  ifelse (any(v > 0.7), v[length(v)],0)
})