r - 他の ggplot 関数で aes_string() に提供された変数を使用する

Question

aes_string()いくつかのグラフを作成するために関数で使用しています。私はテーマにカウプロットを使用しています。これにより、軸が提供されたデータの最大値にスケーリングされ、以下の例のようにポイントの上部または側面が最大で切り取られます。

したがって、列の最大データに 5% を追加して、少しスペースを追加したいと考えています。関数を書いていなければ、次のようなことができます

scale_y_continuous(expand = c(0,0), 
                       limits = c(0, max(y_var) *  1.05))

ただし、 でこれを行う方法がわかりませんaes_string()。誰でもこれを行う方法を説明できますaes_string()か?

library(cowplot)
library(ggplot2)

fig_fun <- function(data, var){
  ggplot(data, aes_string(x = "wt", y = var)) + 
    geom_line() + 
    geom_point() +
    scale_y_continuous(expand = c(0,0), 
                       limits = c(0, NA))
}

data("mtcars")
p <- fig_fun(data = mtcars, var = "mpg")
p