hapSpectrum_viz.R