ggplot2のセパレータをドットにしたい

アンダースコアは <- 入力するのに使いたいので。

library(ggplot2)
for(o in ls(pos = "package:ggplot2")) assign((gsub("_", ".", o)), eval(as.symbol(o)))

p <- qplot(wt, mpg, data = mtcars)

p + geom_smooth(aes(group=cyl), method="lm")
p + geom.smooth(aes(group=cyl), method="lm")

あまり細かく調べてないので余計な副作用があるのか無いのかよく分からない。