powered by
ggfluctuation2(table_data, floor = 0, ceiling = max(table_data$freq, na.rm = TRUE))
data(tips, package = "reshape") ggfluctuation2(table(tips$sex, tips$day)) ggfluctuation2(table(tips[, c("sex", "day")]))
Run the code above in your browser using DataLab