tree2color: Cut a "colored" tree
In jakubkovac/Lori: Personal library of useful functions

This function is used for getting hard clusters by cutting a tree. Use function plot_colours on the result of this function to get a plot.

1	tree2color(tree_model, k = 3, fun = "mean")

`tree_model`	model produced by `pick_palette_jk` function.
`k`	number of clusters.
`fun`	function used on grouped data. Perhaps it makes sense to use different functions than mean. Median might be a good choice. Input should be character.

path <- "./man/figures/duck.jpg"
tree <- pick_palette_jk(path)
colours <- tree2color(tree, k = 10)
plot_colours(colours)

## or use something like this
# it is commented in order not to fail when pals is unable to install
# color_list <- purrr::map(1:10,~tree2color(tree,.x))
#do.call(pals::pal.bands,color_list)