Как я могу сделать несколько графиков с графиком типа somSC?

Я уверен, что это несложно, но я не знаю, почему этот код не может построить два графика в одном окне.

nfil=5
ncol=5
set.seed(850)
som <- trainSOM(x.data=datasom[3:8], 
                dimension=c(nfil,ncol),
                nb.save = 100,
                verbose=TRUE)
#  SUPERCLUSTERS
num.grupos=4
som.sc <- superClass(som, k=num.grupos)
###  PLOTEO SOM
par(mfrow=c(1,2))
plot(som.sc, plot.var=FALSE)
# observaciones de cada neurona
counts<-as.vector(som.sc$som$clustering)
kounts<-c(0)
for (i in 1:(nfil*ncol)) {
  kounts[i]=0
}
for (i in 1:(length(counts))) {
  kounts[counts[i]]=kounts[counts[i]]+1
}
plot(som.sc, type="grid",names=kounts)

Насколько я читал в гугле, со строкой par(mfrow=c(1,2)) должно быть нормально, но не работает. Я запустил код, и первый график использовал первую половину окна, как и должно быть. Но второй сюжет использует все окно. Помогите, пожалуйста!. Спасибо.

P.S .: Обзор этого поста не позволил мне написать весь код. Я использую пакет SOMbrero.