返回美学映射的函数

Question

我想创建一个“就像”ggplot2 的aes() 函数一样工作的函数。我卑微的尝试以“找不到对象”错误而失败：

library(ggplot2)

data <- data.frame(a=1:5, b=1:5)

# Works
ggplot(data) + geom_point() + aes(x=a, y=b)

my.aes <- function(x, y) { aes(x=x, y=y) }
# Fails with "Error in eval(expr, envir, enclos) : object 'x' not found"
ggplot(data) + geom_point() + my.aes(x=a, y=b)

实现my.aes()的正确方法是什么？这是为了封装和代码重用。

也许这是相关的，我只是还不知道如何： How to write an R function that evaluates an expression within a data-frame.

Answer 1

键入 aes 不带任何括号或参数以查看它在做什么：

function (x, y, ...) 
{
    aes <- structure(as.list(match.call()[-1]), class = "uneval")
    rename_aes(aes)
}

它采用其参数的名称而不评估它们。它基本上是保存名称以供以后使用，因此它可以在您尝试绘制的数据框的上下文中评估它们（这就是您的错误消息抱怨eval 的原因）。因此，当您在ggplot 构造中包含my.aes(x=a, y=b) 时，它会在data 中寻找x——因为x 没有在aes(x=x, y=y) 中评估。

另一种思考aes 中发生的事情的方式类似于

my.aes <- function(x, y) {
  ans <- list(x = substitute(x), y = substitute(y))
  class(ans) <- "uneval"
  ans
}

在上面的示例中应该可以工作，但请参阅plyr::. 中的注释（它使用与aes 相同的match.call()[-1] 范例）：

类似的技巧可以用替代来执行，但是当函数 可以通过多种方式调用它变得越来越棘手 确保从正确的帧中提取值。 替代技巧也使编程变得困难 使用它们的函数，而引用的类提供 as.quoted.character 将字符串转换为适当的数据 结构。

如果你想让my.aes 自己调用aes，可能是这样的：

my.aes <- function(x,y) {
    do.call(aes, as.list(match.call()[-1]))
} 

Roman Luštrik 指出的aes_string 函数示例：

my.aes <- function(x,y) {
    aes_string(x = x, y = y)
}

但在这种情况下，您需要将呼叫更改为 my.aes("a", "b")。