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

Ответ 1

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

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", но вы получили эту идею. Edited Jan 2012 от Carl W: "do.call" работает только с функциями в кавычках, как в обновлениях Henrik. Я отредактировал его здесь, чтобы избежать путаницы в будущем.

Ответ 2

Эти вещи становятся сложными, и нет простых решений без указания дополнительных аргументов в вашей функции. Если у вас есть ... для вызовов 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' совпадающий дважды.

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

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

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)
}

Что работает так, используя второй пример вызова Jori, соответствующим образом измененный:

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

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

Ответ 3

В одном направлении используются списки аргументов в сочетании с 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. Вы можете обойти это с некоторыми предложениями, я оставлю это вам, чтобы продолжить игру с ним.

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