как удалить внешнюю границу моего участка s.class

Question

Я хотел бы удалить внешнюю границу своих графиков s.class. Пробовал в разные стороны, но безрезультатно. Помимо выяснения того, как создавать графики в адеграфии, я не вижу способа сделать это для графиков s.class. Мой код

#setting margins and then layout of figure
par(oma=c(0,0,0,0))
par(mar=c(5,7,1,1))
par(mfrow=c(1,2))

#### BODY MORPHS RW1 AND RW2

#colours already in paper
myCol2=c("green","magenta3","blue","red","yellow")

# set it according to popn
names(myCol2) = levels(RWggclust2_eds$ggpop)

# set the shapes
PCH = c(15,16,17)

# we can wrap it around using with
plot_All = with(RWggclust2_eds,
                plot(RW1,RW2, yaxt="n", ann=FALSE, 
                     pch= PCH[Morph.cluster],
                     cex.axis=1.5, cex.lab=1.5,
                     col=myCol2[as.character(ggpop)]
                )
)

title(xlab="RW1 (26%)",cex.lab=1.5)
title(ylab="RW2 (17%)",cex.lab=1.5,line = 4.5)
axis(2, cex.axis=1.5, las=2)
abline(h=0,v=0,col="grey", lty=2)

#this is where the outer box that I would like to remove comes in
s.class(cbind(RWggclust2_eds$RW1, RWggclust2_eds$RW2), 
        fac=as.factor(RWggclust2_eds$Morph.cluster), 
        add.plot=T, 
        cpoint=2,
        clabel=0,
        pch=NA,
        axesell=F,
        addaxes=F,
        cstar=0,
        cellipse = 1.5)

##code replicated here with another PC axis, so I won't post the repeat

Код создает эту фигуру

В принципе, я просто не хочу, чтобы вокруг каждой из панелей была внешняя рамка. Любые идеи?