ggplot2 proportional squares

I am looking to make some kind of proportional squares (by lack of a better name) visualization in R. Example:

Any advice on how to do this in R (preferably ggplot2)?