som.add.clusters.legend: Add legend clusters

In SOMMD: Self Organising Maps for the Analysis of Molecular Dynamics Data

Add legend clusters

Description

Function to apply a legend of clusters to a SOM map image

Usage

som.add.clusters.legend(Nclus, color.scale)

Arguments

Nclus	the number of clusters to which put the legent
color.scale	the color scale used for the image

Value

Called for its effect.

Author(s)

Stefano Motta [e-mail]

Examples

#Read example SOM data
som_model <- readRDS(system.file("extdata", "SOM_HIFa.rds", package = "SOMMD"))
#Divide the SOM in the selected number of clusters
som_cl <- cutree(hclust(dist(som_model$codes[[1]], method="euclidean"), method="complete"), 4)
#Define a set of colors
colors <- c("#1f78b4", "#33a02c", "#e31a1c", "#ffff88", "#6a3d9a") 
#Plot the som with neurons colored according to clusters
plot(som_model, type = "mapping", bgcol=colors[som_cl], col=rgb(0,0,0,0), shape='straight', main="")
kohonen::add.cluster.boundaries(som_model, som_cl, lwd=5)
#Add legend to the plot
som.add.clusters.legend(Nclus=4, color.scale=colors)

SOMMD documentation built on Oct. 2, 2024, 5:07 p.m.