How to dynamically make a plot symmetrical around 0 in ggplot2

auto-symmetry.md

library(ggplot2)

data <- data.frame(x = rnorm(1000, 1))

ggplot(data, aes(x)) + 
  geom_histogram(binwidth = 0.3, boundary = 0) + 
  geom_vline(xintercept = 0)

ggplot(data, aes(x)) + 
  geom_histogram(binwidth = 0.3, boundary = 0) + 
  geom_vline(xintercept = 0) +
  geom_blank(aes(x * -1))

^{Created on 2018-11-02 by the reprex package (v0.2.1)}