从函数调用ggplot

Question

请考虑以下事项：

df <- data.frame(a=1:10,b=2:11)
ggplot(df,aes(x=a,y=b)) + geom_point()+geom_text(aes(label=a,x=a+0.1))

这很有效。

但由于某些原因，以下方法无效：

plotGG <- function(data,shift) {
  ggplot(data,aes(x=a,y=b)) + geom_point()+geom_text(aes(label=a,x=a+shift))
}
plotGG(df,.1)

任何线索??