小编ric*_*ang的帖子

如果我有这样的矩阵或数据框gene：

    [,1] [,2] [,3] [,4] 
[1,]    2   12    4   10  
[2,]    3   14    3   9  
[3,]    5   15    4   3  
[4,]    8   6    12   18  

我已经通过以下方式获得了每一行和每一列的方法：

a <- apply(gene, 1, mean)
b <- apply(gene, 2, mean)

现在我想从每一行中减去行均值并得到这个：

      [,1] [,2] [,3] [,4] 
[1,]   -5   5    -3   3  
[2,] -4.25 6.75 -4.25 1.75    
[3,] -1.75 8.25 -2.75 -3.75  
[4,]    -3   -5    1   7

这意味着新矩阵的 rowmeans 全为 0。

我怎样才能得到这个？

如果我有这样一个表：

Sam   55
Toby  30
Fred  45
gdgv  63
Wed   19
Bill  26
....

我想基于value（> 40，（30,40），<30）将此表拆分为几个表，这意味着它们将如下所示：
table 1：

Sam  55
Fred 45
gdgv 63

表2：

Toby 30

表3：

Bill  19
Wed   26

我如何才能做到这一点for loop？