### First prepare an NMDS object
x <- bot %>% efourier %>% NMDS
plot_NMDS(x)
plot_NMDS(x, ~type) %>% layer_stars() %>% layer_labelpoints()
### Same on MDS object
x <- bot %>% efourier %>% MDS
plot_MDS(x)
plot_MDS(x, ~type) %>% layer_stars() %>% layer_labelpoints()
Run the code above in your browser using DataLab