Fluctuation plot

data(movies, package = "ggplot2")
ggfluctuation2(table(movies$Action, movies$Comedy))

ggfluctuation2(table(movies$Action, movies$mpaa))

ggfluctuation2(table(movies[,c("Action", "mpaa")]))

ggfluctuation2(table(warpbreaks$breaks, warpbreaks$tension))