fixing scale_fill_hc in hc.R