将额外参数传递给 ggplot2 geoms：使用省略号 (...)

这是后续this https://stackoverflow.com/questions/57072096/passing-an-extra-parameter-to-a-custom-geom-in-ggplot2问题。我正在尝试使用自定义参数编写自己的几何图形。我的问题是如何使用省略号（...）来传递额外的参数。

以下示例代码按预期工作：

draw_panel_func <- function(data, panel_params, coord, showpoints=FALSE) {
  print(showpoints)
  if(showpoints) {
    coords <- coord$transform(data, panel_params)
    grid::pointsGrob(coords$x, coords$y)
  } else {
    zeroGrob()
  } 
} 


## definition of the new geom. setup_data inserts the parameter 
## into data, therefore making it accessible for .draw_panel_func
GeomSimplePoint <- ggproto("GeomSimplePoint", Geom,
  required_aes = c("x", "y"),
  default_aes = aes(shape = 19, colour = "black"),
  draw_key = draw_key_point,
  extra_params = c("na.rm", "showpoints"),
  draw_panel = draw_panel_func
) 

geom_simple_point <- function(mapping = NULL, data = NULL, stat = "identity",
                              position = "identity", na.rm = FALSE, show.legend = NA,
                              inherit.aes = TRUE, showpoints=TRUE, ...) {
  layer(
    geom = GeomSimplePoint, mapping = mapping,  data = data, stat = stat,
    position = position, show.legend = show.legend, inherit.aes = inherit.aes,
    params = list(na.rm = na.rm, showpoints=showpoints, ...)
  )   
}

这有效，我可以打电话

ggplot(mpg, aes(displ, hwy)) + geom_simple_point(showpoints=FALSE)

省略点的绘制。

但是，因为我想对不同的新几何对象使用通用函数，所以我更愿意定义draw_panel函数没有显式命名 showpoints 参数，而是使用省略号。我尝试了以下操作（所有其余代码保持不变），它不起作用：

draw_panel_func <- function(data, panel_params, coord, ...) {
  showpoints <- list(...)$showpoints
  if(showpoints) {
    coords <- coord$transform(data, panel_params)
    grid::pointsGrob(coords$x, coords$y)
  } else {
    zeroGrob()
  }
}

返回的错误是：

if (showpoints) { 中的错误：参数长度为零

当我执行以下操作时，会发生一件有趣的事情：

draw_panel_func <- function(data, panel_params, coord, showpoints=FALSE, ...) {
  #showpoints <- list(...)$showpoints
  if(showpoints) {
    coords <- coord$transform(data, panel_params)
    grid::pointsGrob(coords$x, coords$y)
  } else {
    zeroGrob()
  }
}

由于某种原因，showpoints 现在始终为 FALSE。但是，那...列表为空。这完全出乎意料。

这一切都非常令人困惑，并且肯定它的表现并不像我预期的那样。在这种情况下可以使用省略号吗？如果是，那么如何？这里发生了什么？

EDIT:按照 Gilean0709 的建议我尝试删除showpoints从定义geom_simple_point:

geom_simple_point <- function(mapping = NULL, data = NULL, stat = "identity",
                              position = "identity", na.rm = FALSE, show.legend = NA,
                              inherit.aes = TRUE, ...) {
  layer(
    geom = GeomSimplePoint, mapping = mapping,  data = data, stat = stat,
    position = position, show.legend = show.legend, inherit.aes = inherit.aes,
    params = list(na.rm = na.rm, ...)
  )   
}

这仍然给出相同的错误（showpoints 为 NULL）。

这与参数分配到统计数据、几何图形和位置的方式有关。如果我们看一下代码layer():

function(arguments){
  ...some_body...
  params <- rename_aes(params)
  aes_params <- params[intersect(names(params), geom$aesthetics())]
  geom_params <- params[intersect(names(params), geom$parameters(TRUE))]
  stat_params <- params[intersect(names(params), stat$parameters(TRUE))]
  all <- c(geom$parameters(TRUE), stat$parameters(TRUE), geom$aesthetics())
  extra_param <- setdiff(names(params), all)
  if (check.param && length(extra_param) > 0) {
    warning("Ignoring unknown parameters: ", paste(extra_param, 
      collapse = ", "), call. = FALSE, immediate. = TRUE)
  }
  ...some_more_body...
}

我们可以看到你输入的参数params（包括...）根据参数名称分布在层的不同方面。剩下的任何东西（extra_param）被丢弃并被警告。由于省略号...是一种特殊情况，它本身没有名称（但其中的元素...做），如果 ggplot geoms/stats/aes 不知道中的元素，则会被丢弃....

现在有一个丑陋的方法来解决这个问题，那就是在一开始就复制省略号并将其作为命名参数传递：

geom_simple_point <- function(mapping = NULL, data = NULL, stat = "identity",
                              position = "identity", na.rm = FALSE, show.legend = NA,
                              inherit.aes = TRUE, ...) {
  elli <- list(...)
  layer(
    geom = GeomSimplePoint, mapping = mapping,  data = data, stat = stat,
    position = position, show.legend = show.legend, inherit.aes = inherit.aes,
    params = list(na.rm = na.rm, elli = elli, ...)
  )   
}

然后，我们可以让面板绘图函数接受这个省略号的副本作为参数：

draw_panel_func <- function(data, panel_params, coord, elli) {
  if(elli$showpoints) {
    coords <- coord$transform(data, panel_params)
    grid::pointsGrob(coords$x, coords$y)
  } else {
    zeroGrob()
  }
}

并相应地更新 ggproto：

GeomSimplePoint <- ggproto("GeomSimplePoint", Geom,
                           required_aes = c("x", "y"),
                           default_aes = aes(shape = 19, colour = "black"),
                           draw_key = draw_key_point,
                           extra_params = c("na.rm", "elli"),
                           draw_panel = draw_panel_func
) 

现在，这产生了一个将按预期工作的情节，但它会发出警告，表明它忽略了showpoints参数，因为它被传递给extra_param（尽管从技术上讲它并没有被忽略，因为它现在是elli）。不过，您可能想在面板绘图函数中编写一些额外的检查，以确保showpoints甚至在一开始就提供了一个论点。

希望这有帮助！