Есть ли способ использовать два оператора ' ... ' в функции в R?

эти вещи получить сложно, и нет простых решений без указания дополнительных аргументов в функции. Если бы ты ... --6--> и в plot и legend звонки вы бы в конечном итоге получать предупреждения при прохождении в legend-конкретные аргументы. Например, с помощью:

foo.plot <- function(x,y,...) {
    plot(x,y,...)
    legend("bottomleft", "bar", pch = 1, ...)
}

вы получаете следующие предупреждения:

> foo.plot(1, 1, xjust = 0.5)
Warning messages:
1: In plot.window(...) : "xjust" is not a graphical parameter
2: In plot.xy(xy, type, ...) : "xjust" is not a graphical parameter
3: In axis(side = side, at = at, labels = labels, ...) :
  "xjust" is not a graphical parameter
4: In axis(side = side, at = at, labels = labels, ...) :
  "xjust" is not a graphical parameter
5: In box(...) : "xjust" is not a graphical parameter
6: In title(...) : "xjust" is not a graphical parameter

есть способы обойти эту проблему, см. plot.default и его локальные функции, определенные как обертки вокруг функций, таких как axis, box etc. где у вас было бы что-то вроде localPlot() обертка, встроенная функция и вызовите это, а не plot() напрямую.

bar.plot <- function(x, y, pch = 1, ...) {
    localPlot <- function(..., legend, fill, border, angle, density,
                          xjust, yjust, x.intersp, y.intersp,
                          text.width, text.col, merge, trace, plot = TRUE, ncol,
                          horiz, title, inset, title.col, box.lwd,
                          box.lty, box.col, pt.bg, pt.cex, pt.lwd) plot(...)
    localPlot(x, y, pch = pch, ...)
    legend(x = "bottomleft", legend = "bar", pch = pch, ...)
}

(совсем почему то 'plot' аргумент нуждается в дефолте вне меня, но он не будет работать, не давая ему по умолчанию TRUE.)

теперь это работает без предупреждений:

bar.plot(1, 1, xjust = 0.5, title = "foobar", pch = 3)

как вы обрабатываете графические параметры, такие как будет - bty повлияет на тип поля графика и легенда типа коробки. Обратите внимание также, что я обработал 'pch' по-другому, потому что если кто-то использовать этот аргумент в bar.plot() вызов, вы бы i) используя различные символы в легенде/сюжете, и вы получите предупреждение или ошибку о 'pch' в два раза соответствующие.

как вы можете видеть, это становится довольно сложно...

ответ Джориса дает интересное решение, которое я прокомментировал, напомнило мне о аргументах контрольных списков в таких функциях, как lme(). Вот мой версия ответа Джориса, реализующая идею этого контрольного списка:

la.args <- function(x = "bottomleft", legend = "bar", pch = 1, ...)
    c(list(x = x, legend = legend, pch = pch), list(...))

foo.plot <- function(x,y, legend.args = la.args(), ...) {
    plot(x, y, ...)
    do.call(legend, legend.args)
}

который работает так, используя второй пример вызова Джори, соответствующим образом модифицированный:

foo.plot(1,1, xaxt = "n", legend.args=la.args(bg = "yellow", title = "legend"))

вы можете быть как вам нравится при настройке la.args() function-здесь я устанавливаю только значения по умолчанию для Аргументов Joris и объединяю любые другие. Было бы легче, если бы la.args() содержит все аргументы Легенды со значениями по умолчанию.

один из способов-использовать списки аргументов в сочетании с do.call. Это не самое красивое решение, но оно работает.

foo.plot <- function(x,y,legend.args,...) {
    la <- list(
        x="bottomleft",
        legend="bar",
        pch=1
    )
    if (!missing(legend.args)) la <- c(la,legend.args)
    plot(x,y,...)
    do.call(legend,la)
}
foo.plot(1,1, xaxt = "n")    
foo.plot(1,1, xaxt = "n",legend.args=list(bg="yellow",title="legend"))

один недостаток заключается в том, что вы не можете указать, например, pch=2, например, в легенде.список аргументов. Вы можете обойти это с некоторыми предложениями if, я оставлю это вам, чтобы продолжить возиться с ним.

Edit: см. ответ Гэвина Симпсона для лучшей версии этой идеи.

мы могли бы построить formalize функция, которая сделает любую функцию совместимой с точками:

formalize <- function(f){
  # add ... to formals
  formals(f) <- c(formals(f), alist(...=))
  # release the ... in the local environment
  body(f)    <- substitute({x;y},list(x = quote(list2env(list(...))),y = body(f)))
  f
}

foo.plot <- function(x,y,...) {
  legend <- formalize(legend) # definition is changed locally
  plot(x,y,...)
  legend("bottomleft", "bar", pch = 1, ...)
}    

foo.plot(1,1, xaxt = "n", title = "legend")

он показывает предупреждения, хотя, потому что сюжет получает аргументы, которые он не ожидает.

мы могли бы использовать suppressWarnings на вызов сюжета (но он будет подавлять все предупреждения, очевидно), или мы могли бы разработать другую функцию, чтобы сделать plot функция (или любая функция) локально более толерантна к точкам:

casualize <- function(f){
  f_name <- as.character(substitute(f))
  f_ns   <- getNamespaceName(environment(f))
  body(f) <- substitute({
      # extract all args
      args <- as.list(match.call()[-1]);
      # relevant args only
      args <- args[intersect(names(formals()),names(args))]
      # call initial fun with relevant args
      do.call(getExportedValue(f_ns, f_name),args)})
  f
}

foo.plot <- function(x,y,...) {
  legend <- formalize(legend)
  plot   <- casualize(plot)
  plot(x,y,...)
  legend("bottomleft", "bar", pch = 1, ...)
}

foo.plot(1,1, xaxt = "n", title = "legend")

теперь он работает нормально!