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)