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
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
