Há relação entre as variáveis?
Se houver você pode fazer:

tab <- ftable(d)

mosaicplot(tab)

O resto da confecção você tem capacidade de fazer!

(s,f,p)
Allaman