Add column sum to table

Question

Data structure is:

Company        Marital a              single a              married b              widow c              married b              single 

I'm using table(df$Company,df$Marital), but I want to have a column that shows the row total, such as the following:

            a     b    c    Total married     50    20   5    75 single      10    10   10   30 widow       5     50   0    55 

Is there a different table function that provides a row sum append option?

Answer 1

You could use cbind and rowSums afterwards:

tab <- table(df$Company,df$Marital) tab <- cbind(tab, Total = rowSums(tab)) 

You can also use the built-in addmargins function:

tab <- addmargins(table(df$Company,df$Marital), 2) 

(The 2 means to add a sum column, but not a sum row- you can omit it and you'll get both).

Answer 2

You can use addmargins

x <- table(df$Company,df$Marital) addmargins(x)         # option 1 ftable(addmargins(x)) # option 2