如何将轴标签添加到simple.scatterplot（使用R）

使用r的软件包

有一些很好的现成绘图工具。但是，使用
simple.scatterplot
函数，我无法理解如何添加轴标签

library(UsingR)

simple.scatterplot(iris$Sepal.Length, iris$Sepal.Width, xlab='hello axis')

Error in plot.default(x, y, xlim = xrange, ylim = yrange, xlab = "x",  : 
  formal argument "xlab" matched by multiple actual arguments

图当然可以在不使用XLAB ARG的情况下生成，并且我尝试使用<代码> MTEX<代码>命令，但是标签最终在页面的中间。p>
mtext(side=1, text='hello axis')


我尝试编辑函数本身，但没有成功：

mysimple.scatterplot <- function (x, y) 
{
  def.par <- par(no.readonly = TRUE)
  n <- length(x)
  xhist <- hist(x, sqrt(n), plot = FALSE)
  yhist <- hist(y, sqrt(n), plot = FALSE)
  top <- max(c(xhist$counts, yhist$counts))
  xrange <- c(min(x), max(x))
  yrange <- c(min(y), max(y))
  nf <- layout(matrix(c(2, 0, 1, 3), 2, 2, TRUE), c(3, 1), 
               c(1, 3), TRUE)
  layout.show(nf)
  par(mar = c(3, 3, 1, 1))
  plot(x, y, xlim = xrange, ylim = yrange, xlab = 'Hello X-axis', ylab = 'Hello Y-axis', 
       ...)
  abline(lm(y ~ x))
  par(mar = c(0, 3, 1, 1))
  barplot(xhist$counts, axes = FALSE, ylim = c(0, top), space = 0, 
          col = gray(0.95))
  par(mar = c(3, 0, 1, 1))
  barplot(yhist$counts, axes = FALSE, xlim = c(0, top), space = 0, 
          col = gray(0.95), horiz = TRUE)
  par(def.par)
}

mysimple.scatterplot原因如下：

layout.show(nf)
par(mar = c(3, 3, 1, 1)) # <-- Here
plot(x, y, xlim = xrange, ylim = yrange, xlab = 'Hello X-axis', ylab = 'Hello Y-axis', 
     ...)

layout.show（nf）
par（mar=c（3,3,1,1））#改变mar值似乎没有效果。我尝试了从
par（mar=c（0,0,0,0））
到
par（mar=c（12,5,0,0））
的所有方法，但绘图都是相同的。奇怪的是，（12,5,0,0）虽然实际绘图被推开了，但肯定可以工作-你确定要更改正确的
par
？我正在调用原始函数（
simple.scatterplot
而不是新的）…道歉和感谢！@Minnow:没问题，很高兴能帮忙！