data(Movies)
ggassoc_bertin(Movies, ggplot2::aes(x = Country, y = Genre))
ggassoc_bertin(Movies, ggplot2::aes(x = Country, y = Genre),
sort = "both", prop.width = TRUE, add.gray = 3, add.rprop = TRUE)
Run the code above in your browser using DataLab