Rework the ggplot statements to better present disp plot
Add comments to script
Revise ggplot statements