Извлечение цветового кода HTML для каждого узла графика Kohonen

Question

Я использую следующий скрипт для построения SOM, и я хотел бы получить цветовой код HTML, соответствующий каждому узлу.

Это не похоже на объект som_model s3.

Любая идея?

library(kohonen) 

data<-matrix(c(-0.406,-0.406,-0.406,-0.406,2.463,-0.406,-0.406,2.463,-0.406,-0.406,-0.406,-0.406, 
    -0.406,-0.406,-0.406,-0.406,-0.406,-0.406,-0.406,-0.406,0.4188448,1.6027146,0.7208751, 
    0.7724322,0.5655424,-1.6969826,0.3429044,0.396769,0.3224141,-0.7324542,-0.5303228,0.9943725, 
    -0.0324817,1.321637,-1.1985506,-0.3409802,-0.1393889,-0.3964047,0.9597519,-0.2443682), ncol=2)  

som_grid <- somgrid(xdim = 4, ydim=4, topo="hexagonal") 

som_model <- som(data, 
       grid=som_grid, 
       rlen=100, 
       alpha=c(0.05,0.01), 
       keep.data = TRUE, 
       n.hood='circular') 

plot(som_model,type="count") 

Выход Ищу бы список/вектор с цветовым кодом для каждого узла: «# 0000FF», «# FF0000» ...

Answer 1

plot вызов действительно звоните в plot.kohonen и, в свою очередь, звоните plot.kohprop, чтобы настроить некоторые эстетики сюжета, включая цветовую схему. Цветовая схема по умолчанию: heat.colors + gray. Для вашего случая вы можете сделать heat.colors(3), а затем посмотреть на som_model$grid, чтобы определить цветовое сопоставление.

Вы можете видеть, что делает plot.kohprop, просто введя имя функции sans parens на консоли R.