Plots a mosaic plots

data(movies, package = "ggplot2")
ggally_ratio(movies[,c("mpaa","Action")])

ggally_ratio(movies[,c("mpaa","Action")]) + ggplot2::coord_equal()

nummpaa <- length(levels(movies[,"mpaa"]))
numAction <- length(levels(as.factor(movies[,"Action"])))
ggally_ratio(
  movies[,c("Action","mpaa")]
) + ggplot2::theme(
  aspect.ratio = nummpaa / numAction
)