函數返回一個唯美映射

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)時，它正在尋找x在data - 因爲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::.的說明（使用相同match.call()[-1]範式爲aes）：

Similar tricks can be performed with substitute, but when functions can be called in multiple ways it becomes increasingly tricky to ensure that the values are extracted from the correct frame. Substitute tricks also make it difficult to program against the functions that use them, while the quoted class provides as.quoted.character to convert strings to the appropriate data structure.

如果你想my.aes調用aes本身，或許是這樣的：

與 aes_string功能

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

例子指出了羅馬Luštrik：

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

，但你需要你的電話改變my.aes("a", "b")在這種情況下。