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

Автоматический способ:

foo.plot <- function(x,y,...) {
    lnames <- names(formals(legend))
    pnames <- c(names(formals(plot.default)), names(par()))
    dots <- list(...)
    do.call('plot', c(list(x = x, y = x), dots[names(dots) %in% pnames]))
    do.call('legend', c("bottomleft", "bar", pch = 1, dots[names(dots) %in% lnames]))
}

pch должен быть отфильтрован из lnames, чтобы избежать дублирования в вызове legend в случае, если пользователь вводит «pch», но вы поняли идею. Отредактировано Карлом В. в январе 2012 г .: «do.call» работает только с функциями в кавычках, как в обновлениях Хенрика. Я отредактировал это здесь, чтобы избежать путаницы в будущем.

Эти вещи становятся сложными, и нет простых решений без указания дополнительных аргументов в вашей функции. Если бы у вас было ... как в вызовах 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 и т. д., где у вас будет что-то вроде оболочки 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, зависит от вас - 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() - здесь я только устанавливаю значения по умолчанию для аргументов, установленных Джорисом, и объединяю любые другие. Было бы проще, если бы 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 в списке legend.args. Вы можете обойти это с помощью некоторых предложений if, я оставлю вам возможность повозиться с этим дальше.

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

Мы могли бы создать функцию 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")

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