mtcars %>%
c3(x = 'mpg', y = 'wt', group = 'cyl') %>%
c3_scatter() %>%
grid('y') %>%
grid('x', show = FALSE, lines = data.frame(value=c(17, 21),
text= c('Line 1', 'Line 2')))
Run the code above in your browser using DataLab