r - ggplot の色の引数をスクリプトに渡す

Question

データフレームから各列をプロット/保存するために使用するプロット関数があります。aes()変数を ggplot に渡すには、以下の素晴らしいコマンドを使用しaes_stringます。

plot <- function(df, column) {
  y <- ggplot(df, aes_string(x="x", y="y", color=column, label="vector")) + geom_point() + theme_bw()
  ggsave(y, file=paste("plots/plot_", column,".png",sep="")) 
}

docsscale_color_gradient2に asを追加したいと思いますが、を列の平均に設定したいと思います。この値を関数に渡す同様の方法はありますか? 次のことを試してみたところ、グラフのポイントが灰色に設定されました。midpoint

z = y + scale_color_gradient2(midpoint = mean(column))
z = y + scale_color_gradient2(midpoint = mean(df$column))

値を事前に計算して関数に渡すことでこれを回避できると思いますが、これaes_string()を行う簡単な方法があるかどうか疑問に思います。

ありがとう、ザックcp