數組：按行減去

Question

如何減去數組中每一行的向量？

a <- array(1:8, dim=c(2,2,2)) 
a 
, , 1 

     [,1] [,2] 
[1,] 1 3 
[2,] 2 4 

, , 2 

     [,1] [,2] 
[1,] 5 7 
[2,] 6 8 

使用申請給我：

apply(a,c(1,2), '-',c(1,5)) 
, , 1 

     [,1] [,2] 
[1,] 0 1 
[2,] 0 1 

, , 2 

     [,1] [,2] 
[1,] 2 3 
[2,] 2 3 

我想獲得的是：

, , 1 

     [,1] [,2] 
[1,] 0 -2 
[2,] 1 -1 

, , 2 

     [,1] [,2] 
[1,] 4 2 
[2,] 5 3 

預先感謝任何提示

Answer 1

使用sweep到在某個特定區域運行數組的行距：行是第二個維度（margin）。

sweep(a,MARGIN=2,c(1,5),FUN="-") 

Answer 2

> a - rep(c(1,5),each=2) 
, , 1 

    [,1] [,2] 
[1,] 0 -2 
[2,] 1 -1 

, , 2 

    [,1] [,2] 
[1,] 4 2 
[2,] 5 3 

Answer 3

> library (plyr) 
> aaply(a, 1, "-", c(1,5)) 
, , = 1 


X1 1 2 
    1 0 -2 
    2 1 -1 

, , = 2 


X1 1 2 
    1 4 2 
    2 5 3 

Answer 4

使用scale減去或者均值或從各行指定的矢量，然後或者通過標準偏差或一個指定的向量劃分它。

對於示例： scale(a, c(1,5), FALSE)