## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(nomiShape)

## -----------------------------------------------------------------------------
rare_plot(categories,"animal")

## -----------------------------------------------------------------------------
rare_plot(categories3,"animal")

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