chartjs(mtcars, mpg, qsec, labels = row.names(mtcars)) %>% 
  cjsLine