hapData_viz.R