df %>% hc_freq_by_year_ci(smooth = TRUE) # pipe datafram to helper function that produces a highcharts plot