如何删除R中的第二个x和y轴？

Question

Hopefully a simple question today:

I'm plotting an RDA (in R Studio) and would like to remove the second X and Y (top and right) axes . Purely for aesthetic purposes, but still. The code I'm using is below. I've managed to remove the first axes (I'll replace them with something nicer later) with xaxt="n" and yaxt="n", but it still puts the others in.

The question: How do I remove the top and right axes from a plot in R?

To make this example reproducible you will need two data frames of equal length called "bio" and "abio" respectively.

library (vegan) ##not sure which package I'm actually employing
library(MASS)   ##these are just my defaults
rdaY1<-rda(bio,Abio) #any dummy data will do so long as they're of equal length
par(bg="transparent",new=FALSE)
plot(rdaY1,type="n",bty="n",main="Y1. P<0.001 R2=XXX",
     ylab="XXX% variance explained",
     xlab="XXX% variance explained",
     col.main="black",col.lab="black", col.axis="white",
     xaxt="n",yaxt="n",axes=FALSE, bty="n")
abline(h=0,v=0,col="black",lwd=1)
points(rdaY1,display="species",col="gray",pch=20)
#text(rdaY1,display="species",col="gray")
points(rdaY1,display="cn",col="black",lwd=2)
text(rdaY1,display="cn",col="black")

UPDATE: Using comments below I've played around with various ways to get rid of the axes and it seems like that second "points" command where I call for the vectors to be plotted is the problem. Any ideas?

Answer 1

bty="L" worked for me. I generated some random data using rnorm() to test:

library(vegan)
mat <- matrix(rnorm(100), nrow = 10)
pl <- rda(mat)
plot(pl, bty="L")

Here's the result.