ggplot2 Cheat Sheet:
Two Variables: Discrete x, Discrete y

library(ggplot2)

Counts

p <- ggplot(diamonds, aes(cut, color))
p <- p + geom_count()
print(p)