Variables locales dentro de aes

Estoy tratando de usar una variable local enaes cuando parcela con ggplot. Este es mi problema reducido a la esencia:

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)

Esto resulta en el siguiente error:

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

Parece que no puedo usar variables locales (o argumentos de función) enaes. ¿Podría ser que ocurra debido al contenido deaes ¿Se ejecuta más tarde cuando la variable local está fuera de alcance? ¿Cómo puedo evitar este problema (aparte de no usar la variable local dentro deaes)?