| plot.kohonen {kohonen} | R Documentation |
Plot self-organising map, obtained from function kohonen. Several types of plots are supported.
plot.kohonen(x, type = c("changes", "codes", "counts", "mapping",
"prediction", "property"),
classif, labels=NULL, pchs=NULL, main=NULL,
palette.name = heat.colors, ncolors,
zlim=NULL, property, heatkey=TRUE, contin, bgcol=NULL,
...)
x |
kohonen object. |
type |
type of plot. (Wow!) |
classif |
classification object, as returned by
predict.kohonen, or vector of unit numbers.
Only needed if type equals "mapping" and
"counts". |
labels |
labels to plot when type equals
"mapping". |
pchs |
symbols to plot when type equals
"mapping". |
main |
title of the plot. |
palette.name |
colors to use as unit background for "codes", "counts", "prediction", and "property" plotting types. |
ncolors |
number of colors to use. Default is 20 for continuous data, and the number of distinct values (if less than 20) for class data. |
zlim |
optional range for color coding of unit backgrounds. |
property |
values to use with the "property" plotting type. |
heatkey |
whether or not to generate a heatkey at the left side of the plot in the "property" and "counts" plotting types. |
contin |
whether or not the data should be seen as discrete (i.e. classes) or continuous in nature. Only relevant for the colour keys of plots of supervised networks. |
bgcol |
optional argument to colour the unit backgrounds for the "mapping" and "codes" plotting type. Defaults to "gray" and "transparent" in both types, respectively. |
... |
other graphical parameters, e.g. colours of labels, or plotting symbols, in the "mapping" plotting type. |
Several different types of plots are supported:
property contains the numerical
values. See examples below.Ron Wehrens
data(wines)
set.seed(7)
kohmap <- xyf(scale(wines), classvec2classmat(wine.classes),
grid = somgrid(5, 5, "hexagonal"), rlen=100)
plot(kohmap, type="changes", main="plot of changes")
plot(kohmap, type="codes", main="codes plot")
plot(kohmap, type="counts", main="counts plot")
plot(kohmap, type="mapping",
labels=wine.classes, col=wine.classes,
main="mapping plot")
xyfpredictions <- predict(kohmap, newdata=kohmap$codes)$classif
bgcols <- c("gray", "pink", "lightgreen")
plot(kohmap, type="mapping", col=wine.classes,
pchs=wine.classes, bgcol=bgcols[as.integer(xyfpredictions)],
main="another mapping plot")
plot(kohmap, type="prediction",
labels=paste("Variety", 1:3),
palette.name = rainbow,
main="unit class prediction", cex=.8)
### Plot mean distance of mapped objects to their unit codebook vector
hits <- sort(unique(kohmap$unit.classif))
distances <- rep(NA, 25)
for (i in seq(along=hits))
distances[hits[i]] <- mean(kohmap$distances[kohmap$unit.classif == hits[i]])
plot(kohmap, type="property", property=distances,
main="property plot: mean distances")