Add a row with the sum of each colum in a table in R

Question

I'm creating a cross table of 2 factors that has inside the sum of another variable

b<-xtabs(utib~qpl+i , data=data )

This give me a table like

                   <=2.5 2.5-5 5-10 10-50 50-150   150-250   >250     NA
  aaaa               3231   211   64    10      1       0    0       32
  bbbbbbbbb          442    78    7      3      0       0    0        5
  cccccc             6462   466   76     6      0       0    0      157

I need to add in the last row the sum of each column I need that it keeps 'table class' because then I have to export it with the code:

   library(PerformanceAnalytics))
    win.metafile(file)    
    PerformanceAnalytics:::textplot(c)
    dev.off()

score 3 · Accepted Answer · answered Jul 15 '14 at 16:32

You can use the addmargin() function

#sample data
data<-data.frame(
   utib=rpois(50,10), 
   qpl=sample(letters[1:3], 50, replace=T),
   i=cut(runif(50,0,250), breaks=c(0,2.5,5,10,50,150))
)

(b<-xtabs(utib~qpl+i , data=data ) )

#    i
# qpl (0,2.5] (2.5,5] (5,10] (10,50] (50,150]
#   a       0      12     24      46       53
#   b       0       0      0       0      100
#   c       0       0      0      46       42

(bb<-addmargins(b, margin=1))

#    i
# qpl   (0,2.5] (2.5,5] (5,10] (10,50] (50,150]
#   a         0      12     24      46       53
#   b         0       0      0       0      100
#   c         0       0      0      46       42
 #  Sum       0      12     24      92      195

score 0 · Answer 2 · answered Jul 15 '14 at 21:04

Using Mr. Flick's data frame, here is an approach with dcast and the margins argument:

(b <- dcast(data, utib~qpl+i, fun.aggregate = length, margins = TRUE))

Using i as value column: use value.var to override.
    utib a_(50,150] a_NA a_(all) b_(10,50] b_(50,150] b_NA b_(all) c_(10,50] c_(50,150] c_NA c_(all) (all)_(all)
1      4          1    0       1         0          0    1       1         0          1    0       1           3
2      5          0    0       0         0          1    0       1         0          1    0       1           2
3      6          1    0       1         1          0    1       2         0          1    0       1           4
4      7          0    2       2         0          1    0       1         0          0    1       1           4
5      8          2    1       3         0          1    0       1         0          1    1       2           6
6      9          2    1       3         1          0    2       3         0          0    2       2           8
7     10          3    0       3         0          2    0       2         0          0    0       0           5
8     11          1    1       2         0          1    0       1         0          0    1       1           4
9     12          1    1       2         0          0    0       0         1          0    0       1           3
10    13          1    1       2         1          0    0       1         0          0    0       0           3
11    14          0    0       0         1          0    0       1         0          0    0       0           1
12    15          0    1       1         0          0    0       0         0          0    1       1           2
13    16          1    0       1         0          0    0       0         0          0    0       0           1
14    17          0    0       0         0          1    0       1         0          0    1       1           2
15    19          0    1       1         0          0    0       0         0          0    0       0           1
16    20          0    0       0         0          0    1       1         0          0    0       0           1
17 (all)         13    9      22         4          7    5      16         1          4    7      12          50

Add a row with the sum of each colum in a table in R

2 Answers2