graph of half-normal plots residues in ggplot2

Question

I am trying to make the graph presented below for the residuals in the half-normal plot in ggplot2.

How