Fluctuation plot

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

plot of chunk ggfluctuation2

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

plot of chunk ggfluctuation2

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

plot of chunk ggfluctuation2

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

plot of chunk ggfluctuation2