Two Variable Histogram - not showing layers

Question

I am trying to create a two-variable histogram but when I run my code, the graph comes out with just one colour.

Here is my code:

library(car)
geography &l