用R中的值将多列子集

Question

我的数据很大，因此我创建了一个小的矩阵来更好地说明我的需求。

test <- matrix(c(1:3, rep(0.5,3),4:1), nrow = 1, dimnames = list(1, 1:10))

矩阵将如下所示：

   1   2   3    4    5    6   7   8   9   10
1  1   2   3   0.5  0.5  0.5  4   3   2    1

当矩阵的值等于0.5的特定值时，我想用多列将该矩阵子集化：

     4    5    6   
1   0.5  0.5  0.5 

由于我的数据将超过10,000列，因此我正在寻找可以解决问题的代码。