我有一个矩阵，我只想保留那些至少有一个成员大于 5 的行。我的意思是那些成员都小于 5 的行应该被过滤掉。
例如：
2 4 6 2 1
1 2 3 1 2
5 4 7 2 1
在这个矩阵中，第二行应该被过滤掉，因为它的所有成员都小于5。
这是我写的：
for(i in 1:length(matrix[,1]){
for(j in 2:17){
if(any(matrix[i,j]>=5)){matrix=matrix} else {matrix=matrix[-i,]}
}}
但它不起作用。
你觉得我能做什么？
【问题讨论】：
改编this中的一些建议...
1) 确定应该删除哪些行：
a<- read.table(text = "2 4 6 2 1
1 2 3 1 2
5 4 7 2 1")
a
V1 V2 V3 V4 V5
[1,] 2 4 6 2 1
[2,] 1 2 3 1 2
[3,] 5 4 7 2 1
bye <- sapply(1:3, function(x){all(a[x,]<5)})
bye
[1] FALSE TRUE FALSE
2) 使用它来对矩阵进行子集化：
a2 <- a[!bye,]
a2
V1 V2 V3 V4 V5
[1,] 2 4 6 2 1
[2,] 5 4 7 2 1
【讨论】：
filter <- function(m,n){ b <- sapply(1:length(m[1,]), function(x){all(m[x,]<n)}) m[!b,] } 中，其中 m 是您的矩阵，n 是定义您的最大值的数字。
dyplr 包中的 filter() 函数。该命令如下所示：a %>% filter(rowSums(. >=n) >0)，其中 n 是您要过滤的数字。只需确保 a 是一个数据框即可。