R help - Sep 2007 - Append the sum of each row and column to a table matrix

Dear list, 
  I have following table
   
  ee<-table(ID,Day)
  ee
      Day
  ID    2  3  4 5 6  7  9 10 14 16
    35  5  0  0 3 1  0  0  5  0  0
    36  0  0  0 0 0  0  0  1  0  0
    43 13 15 15 0 0 13 13 15 13 15
    46  0  1  0 0 0  0  0  0  0  0
    58  0  0  0 0 0  0  4  4  0  0
  and want to calculate the sum for each row and column and then append the sums
to the table matrix.
   
  kk<cbind(ee,as.matrix(apply(ee,1,sum)))
  dd<-rbind(kk,apply(ee,2,sum))
   
  Warning message:
  number of columns of result
          is not a multiple of vector length (arg 2) in: rbind(1, kk,
apply(ee,2, sum))
   
  rownames(dd)<-c(rownames(dd)[-6],"Total:")
  colnames(dd)<-c(colnames(dd)[-11],"Total:")
   
  I got a table as wanted (see below), except that the variable names Day and ID
are missing. Is there a way to add back these variable names to the table
"dd" as shown in "ee". Also I got a warning message that
I'm not exactly know how to skip. Can I make the table "dd" in a
different and easier way ? Any suggestions are highly appreciated.
   
  Thanks,
  Tom
   
  dd
   
          2  3  4 5 6  7  9 10 14 16 Total:
  35      5  0  0 3 1  0  0  5  0  0     14
  36      0  0  0 0 0  0  0  1  0  0      1
  43     13 15 15 0 0 13 13 15 13 15    112
  46      0  1  0 0 0  0  0  0  0  0      1
  58      0  0  0 0 0  0  4  4  0  0      8
  Total: 18 16 15 3 1 13 17 25 13 15     18
   

       
---------------------------------
Går det långsamt? Skaffa dig en snabbare bredbandsuppkoppling.

	[[alternative HTML version deleted]]

On Sun, 2007-09-30 at 20:56 +0200, Tom Cohen wrote:
> Dear list, 
>   I have following table
>    
>   ee<-table(ID,Day)
>   ee
>       Day
>   ID    2  3  4 5 6  7  9 10 14 16
>     35  5  0  0 3 1  0  0  5  0  0
>     36  0  0  0 0 0  0  0  1  0  0
>     43 13 15 15 0 0 13 13 15 13 15
>     46  0  1  0 0 0  0  0  0  0  0
>     58  0  0  0 0 0  0  4  4  0  0
>   and want to calculate the sum for each row and column and then
> append the sums to the table matrix.
>    
>   kk<cbind(ee,as.matrix(apply(ee,1,sum)))
>   dd<-rbind(kk,apply(ee,2,sum))
>    
>   Warning message:
>   number of columns of result
>           is not a multiple of vector length (arg 2) in: rbind(1, kk,
> apply(ee,2, sum))
>    
>   rownames(dd)<-c(rownames(dd)[-6],"Total:")
>   colnames(dd)<-c(colnames(dd)[-11],"Total:")
>    
>   I got a table as wanted (see below), except that the variable names
> Day and ID are missing. Is there a way to add back these variable
> names to the table "dd" as shown in "ee". Also I got a
warning message
> that I'm not exactly know how to skip. Can I make the table
"dd" in a
> different and easier way ? Any suggestions are highly appreciated.
>    
>   Thanks,
>   Tom
>    
>   dd
>    
>           2  3  4 5 6  7  9 10 14 16 Total:
>   35      5  0  0 3 1  0  0  5  0  0     14
>   36      0  0  0 0 0  0  0  1  0  0      1
>   43     13 15 15 0 0 13 13 15 13 15    112
>   46      0  1  0 0 0  0  0  0  0  0      1
>   58      0  0  0 0 0  0  4  4  0  0      8
>   Total: 18 16 15 3 1 13 17 25 13 15     18
>    
The easiest way to do this is to use addmargins():

dd <- addmargins(ee, FUN = list(Total = sum), quiet = TRUE)
> dd
       Days
ID        2   3   4   5   6   7   9  10  14  16 Total
  35      5   0   0   3   1   0   0   5   0   0    14
  36      0   0   0   0   0   0   0   1   0   0     1
  43     13  15  15   0   0  13  13  15  13  15   112
  46      0   1   0   0   0   0   0   0   0   0     1
  58      0   0   0   0   0   0   4   4   0   0     8
  Total  18  16  15   3   1  13  17  25  13  15   136



See ?addmargins for more information.

HTH,

Marc Schwartz