问题描述
我确定这是一个简单的方法,但我不知道为什么这段代码不能在同一个窗口中绘制两个图形。
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 包。
解决方法
热图可能不适用于 par()。也许这些会有所帮助: