Plots the Bar Plots by Using Diagonal

data(movies, package = "ggplot2")
ggally_barDiag(movies, mapping = ggplot2::aes(x = mpaa))

# ggally_barDiag(movies, mapping = ggplot2::aes_string(x = "mpaa"))
# ggally_barDiag(movies, mapping = ggplot2::aes_string(x ="rating", binwidth = ".1"))