I have made a contingency table in R, shown below:
count <- table (dframe1$Contact, dframe1$Brokenbones) # create the table count
Here is yet another possibility, with the stargazer package. It's primary goal is to produce good-looking lm() tables, but you can do more.
lm()
require(stargazer) star <- stargazer(mytable, type = "text", title = "Stargazer with Summary = FALSE", summary = FALSE)