Nothing
library(ggplot2)
data(lesmis)
# plot the lesmis graph
plot(lesmis, vertex.size=0)
# train the relational algortihm
## details on the lesmis data set are provided with 'help(lesmis)'
## default dimensions will be calculated by the algorithm (see 'help(trainSOM)')
lesmis.som <- trainSOM(x.data=dissim.lesmis, type="relational")
# overview of the prototypes values
plot(lesmis.som, what="prototypes", type="barplot")
# Plots are ggplot2 likes so you can manipulate plot elements afterwards
plot(lesmis.som, what="prototypes", type="barplot") +
guides(fill=guide_legend(keywidth=0.1, keyheight=0.1, default.unit="cm", ncol=2,
label.theme=element_text(size=6))) +
theme(axis.text.x=element_blank(), axis.ticks.x=element_blank())
# overview of the observation distribution
## either using the row names of the input data set as an additional variable
plot(lesmis.som, what="obs", type="names")
## or with a table
table(lesmis.som$clustering)
# perform a hierarchical clustering with 4 super clusters
lesmis.sc <- superClass(lesmis.som, k=4)
## identify the super clusters on the map with colors
plot(lesmis.sc, type="grid")
## identify the super clusters on the prototype values barplot plot
plot(lesmis.sc, type="barplot", show.names=TRUE)
# projection quality indicators provide
## either the topographic error
quality(lesmis.som, quality.type="topographic")
## or the quantization error
quality(lesmis.som, quality.type="quantization")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.