How to apply a clipping mask to geom in a ggplot? How to apply a clipping mask to geom in a ggplot? r r