矩阵中至少有 1 个负值的总列数

total number of columns in a matrix having at least 1 negative value

我想求出一个 100 行 1000 列的矩阵中至少有一个负值(a.k.a 至少有一个小于零的值)的总列数。请问如何在 Rstudio 中编码?

我们可以在逻辑 matrix 上使用 colSums 并检查值是否大于 0,得到 sum

sum(colSums(m1 < 0) > 0)
#[1] 6

数据

set.seed(24)
m1 <- matrix(sample(-1:15, 10 * 10, replace = TRUE), 10, 10)