# Getting the Taxus baccata forests data set
data(taxus_bin)
# Creating a group partition, as presented in the original article of
# the data set
groups <- rep(c(1, 2, 3), c(3, 11, 19))
# Removing taxa occurring in only one relevé in order to
# reproduce exactly the example in the original article of the data set
taxus_bin_wmt <- taxus_bin[rowSums(taxus_bin) > 1, ]
# Sorts the phytosociological table, putting exclusive taxa at the top and
# plots an image of it
tabul <- tabulation(
m_bin = taxus_bin_wmt,
p = groups,
taxa_names = rownames(taxus_bin_wmt),
plot_im = "normal",
palette = "Zissou 1"
)
# This creates an interactive plot (where you can click)
if (interactive()) {
explore_tabulation(tabul, palette = "Zissou 1")
}
Run the code above in your browser using DataLab