Dynamic midpoint in ggplot2's scale_fill_gradient2

Question

I\'m making a heatmap in R using ggplot2 and I want to dynamically change the value of midpoint for scale_fill_gradient2. I want the midpoint for e