Zipf rank plot for Nominal Variables

library(nomiShape)

zipf_rank_plot(alice,"word")

zipf_rank_plot(alice,"word",loglog = T)