data(fishmat)
data(fishdf) # (data.frame version of fishmat)
data(fishsf)
net <- similarity(fishmat, metric = "Simpson")
clu <- netclu_greedy(net)
map <- map_bioregions(clu, fishsf, write_clusters = TRUE, plot = FALSE)
# With colors
clu_colored <- bioregion_colors(clu)
map_bioregions(clu_colored, fishsf, plot = TRUE)
# With bipartite network (sites and species)
clu_bip <- netclu_greedy(fishdf, bipartite = TRUE)
clu_bip_colored <- bioregion_colors(clu_bip)
map_bioregions(clu_bip_colored, fishsf, plot = TRUE)
# With multiple bioregionalizations, plot only specific ones
dissim <- dissimilarity(fishmat, metric = "Simpson")
clu_multi <- hclu_hierarclust(dissim,
optimal_tree_method = "best",
n_clust = c(2, 4, 10))
map_bioregions(clu_multi, fishsf, bioregionalization = c(1, 3),
plot = TRUE) # By index
map_bioregions(clu_multi, fishsf, bioregionalization = c("K_2", "K_4"),
plot = TRUE) # By name
Run the code above in your browser using DataLab