【发布时间】:2021-01-25 23:16:52
【问题描述】:
我确定这很简单,但我不知道为什么这段代码不能在同一个窗口中绘制两个图形。
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 包。
【问题讨论】: