在自组织地图中检索获胜单位的信息

Question

我想弄清楚哪个是kohonen图中节点的获胜单位

library(kohonen)
set.seed(0)
data("wines")
wines <- scale(wines)
som_grid <- somgrid(8, 6, "hexagonal")
som_model <- som(wines, som_grid)   
plot(som_model)

情节将如下所示：

你可能知道观察将在哪个群集中

head(data.frame(cbind(wines,unit= som_model$unit.classif)))

  alcohol malic.acid  ash ash.alkalinity magnesium tot..phenols flavonoids non.flav..phenols proanth col..int. col..hue
  1   13.20       1.78 2.14           11.2       100         2.65       2.76              0.26    1.28      4.38     1.05
  2   13.16       2.36 2.67           18.6       101         2.80       3.24              0.30    2.81      5.68     1.03
  3   14.37       1.95 2.50           16.8       113         3.85       3.49              0.24    2.18      7.80     0.86
  4   13.24       2.59 2.87           21.0       118         2.80       2.69              0.39    1.82      4.32     1.04
  5   14.20       1.76 2.45           15.2       112         3.27       3.39              0.34    1.97      6.75     1.05
  6   14.39       1.87 2.45           14.6        96         2.50       2.52              0.30    1.98      5.25     1.02
    OD.ratio proline     unit
  1     3.40    1050      24
  2     3.17    1185      46
  3     3.45    1480      48
  4     2.93     735       4
  5     2.85    1450      48
  6     3.58    1290      47

但我想在绘图中检索此单位信息，例如将文本放入具有此单位编号的节点中，与标识函数的方式相同，但是会自动进行。提前谢谢！