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)
})