ggsom

Set of different visualizations for the kohonen SOMs (Self-Organising Maps) package using ggplot.

Create a SOMs object

  # library(ggsom)
  # suppressMessages(library(tidyverse))
  # suppressMessages(library(kohonen))
  # library(ggthemes)
  # 
  # iris_som <- kohonen::som(scale(iris[1:4]), grid = somgrid(6, 4, "rectangular"))

Example of line plot

library(ggsom)
suppressMessages(library(tidyverse))
suppressMessages(library(kohonen))
library(ggthemes)

iris_som <-
kohonen::som(scale(iris[1:4]), grid = somgrid(6, 4, "rectangular"))
ggsom::ggsom_line(aes_som(iris_som), TRUE)

Example of ribbon plot

library(ggsom)
suppressMessages(library(tidyverse))
suppressMessages(library(kohonen))
library(ggthemes)

iris_som <-
kohonen::som(scale(iris[1:4]), grid = somgrid(6, 4, "rectangular"))
ggsom_ribbon(aes_som(iris_som, cutree_value = 2) , TRUE)

## Warning in grid.Call.graphics(C_polygon, x$x, x$y, index): semi-
## transparência não é suportada por este dispositivo: reportada somente uma
## vez por página

Example of rect plot

library(ggsom)
suppressMessages(library(tidyverse))
suppressMessages(library(kohonen))
library(ggthemes)

iris_som <-
kohonen::som(scale(iris[1:4]), grid = somgrid(6, 4, "rectangular"))
ggsom_rect(aes_som(iris_som, cutree_value = 4), TRUE)

## Warning in grid.Call.graphics(C_rect, x$x, x$y, x$width, x$height,
## resolveHJust(x$just, : semi-transparência não é suportada por este
## dispositivo: reportada somente uma vez por página