Estou tentando usar uma variável local emaes quando eu traço com ggplot. Este é o meu problema resumido à essência:

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)

Isso resulta no seguinte erro:

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

Parece que não consigo usar variáveis ​​locais (ou argumentos de função)aes. Será que isso acontece devido ao conteúdo deaes sendo executado mais tarde quando a variável local está fora do escopo? Como posso evitar esse problema (além de não usar a variável local dentro deaes)