Question

如果我有这个矩阵（我将其命名为数据）：

     [,1]  [,2]  [,3]  [,4]  [,5]  [,6]  [,7]  [,8]  [,9]
[1,] FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE
[2,] FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE
[3,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
[4,] FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE
[5,] FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE
[6,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
[7,] FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE
[8,] FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE
[9,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE

我希望将列组合成一个列，如下所示:(行中的一个TRUE等于TRUE）

      [,1]   
 [1,] TRUE 
 [2,] TRUE 
 [3,] FALSE 
 [4,] TRUE   
 [5,] TRUE 
 [6,] FALSE  
 [7,] TRUE   
 [8,] TRUE  
 [9,] FALSE

我知道我可以做一些事情（使用|）：

  data2[1:9,1]<-data[,1]|data[,2]|data[,3]|data[,4]…

然后，

data2将包含一个列，其中包含不同的列。但如果我有很多列（例如ncol = 100）

，这不是一个好方法

我猜有一些简单的方法吗？

由于

Answer 1

这是另一个利用R如何在逻辑和数字之间转换的答案：

从逻辑转为数字时，FALSE变为0，TRUE变为1，因此rowSums会为您提供TRUE的数量行：

rowSums(data)
# [1] 3 3 0 3 3 0 3 3 0

从数字转为逻辑时，0变为FALSE，其他任何内容都为TRUE，因此您可以将rowSums的输出提供给as.logical和它将指示一行是否至少有一个TRUE：

as.logical(rowSums(data))
# [1]  TRUE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE FALSE

我喜欢泰勒的答案，它可能效率较低（待证明），但我发现它更直观。

Answer 2

您可以将any与apply一起使用，如下所示：

mat <- matrix(sample(c(TRUE, FALSE), 100,TRUE), 10)
apply(mat, 1, any)

将TRUE / FALSE矩阵合并为一个矩阵

2 个答案: