在aes内的局部变量

Question

aes当我用ggplot绘图时,我正在尝试使用局部变量.这是我的问题归结为本质:

xy <- data.frame(x=1:10,y=1:10)

plotfunc <- function(Data,YMul=2){
    ggplot(Data,aes(x=x,y=y*YMul))+geom_line()
}

plotfunc(xy)

这会导致以下错误:

Error in eval(expr, envir, enclos) : object 'YMul' not found

好像我不能使用局部变量(或函数参数)aes.可能是由于aes当局部变量超出范围后执行的内容会发生吗？我怎样才能避免这个问题(除了不使用局部变量aes)？

Answer 1

我会捕捉当地的环境,

xy <- data.frame(x=1:10,y=1:10)

plotfunc <- function(Data, YMul = 2){
    .e <- environment()
    ggplot(Data, aes(x = x, y = y*YMul), environment = .e) + geom_line()
}

plotfunc(xy)

Answer 2

这是一个替代方案,允许您通过YMul参数传递任何值,而无需将其添加到Datadata.frame或全局环境:

plotfunc <- function(Data, YMul = 2){
    eval(substitute(
        expr = {
            ggplot(Data,aes(x=x,y=y*YMul)) + geom_line()
        }, 
        env = list(YMul=YMul)))
    }

plotfunc(xy, YMul=100)

要了解其工作原理,请单独尝试以下行:

substitute({ggplot(Data, aes(x=x, y=y*YMul))}, list(YMul=100))

Answer 3

ggplot()的aes期望YMul成为内的可变data数据帧.尝试包括YMull那里:

由于@Justin:ggplot()的aes似乎已认准了YMul在data数据帧的第一个,如果没有找到,然后在全球环境.我喜欢将这些变量添加到数据框中,如下所示,因为它在概念上对我有意义.我也不必担心全局变量的变化会对功能产生意想不到的后果.但所有其他答案也是正确的.所以,请使用适合您的方式.

require("ggplot2")
xy <- data.frame(x = 1:10, y = 1:10)
xy <- cbind(xy, YMul = 2)

ggplot(xy, aes(x = x, y = y * YMul)) + geom_line()

或者,如果您想要示例中的函数:

plotfunc <- function(Data, YMul = 2)
{
    ggplot(cbind(Data, YMul), aes(x = x, y = y * YMul)) + geom_line()
}

plotfunc(xy)