stat_half_ydensity function

This is taken from gghalves great R package I am trying to remove the dependency