How do I make borders in a contingency table built in R?

Question

I have made a contingency table in R, shown below:

count <- table (dframe1$Contact, dframe1$Brokenbones)          # create the table

 count                           


        

Answer 1

Using gridExtra, I think it is a good option to create smart table:

mm <- matrix(c(235,61,54,32),ncol=2,byrow=TRUE,
        dimnames = list(c("No contact sport", "Contact sport"), 
        c("No broken ankle/leg ", "Broken ankle/leg")))
library(gridExtra)
grid.table(mm)


library(gridExtra)
grid.table(mm)