如何在r中的矩阵的每一行中找到第一个非零元素？

Question

我有一个10000x3000的大矩阵，我想在每一行中找到第一个非零元素。任何帮助将不胜感激。

Answer 1

这将返回每行的第一个非零元素。

#test data
set.seed(15)
mm<-matrix(ifelse(runif(9*12)<.3, 0, rpois(9*12,1)) , ncol=12); mm

#first non-zero value from each row.
apply(mm,1, function(x) head(x[x!=0],1))