Best possible way to add the likely event and its probability from a cross table in R

Question

Using the mtcars dataset, I have created a cross table as follows -

tab = with(mtcars, ftable(gear, cyl))
tab

Here is how it looks -