Диагностика разгруженного процессора в рабочем приложении .Net

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