Rarefaction plot for Nominal Variables

library(nomiShape)

rare_plot(categories,"animal")

rare_plot(categories3,"animal")

rare_plot(ufo,"shape",max_effort = 250)