Created with Raphaël 2.1.0234515202530wtmpg 

  1. library(rCharts)
  2. r1 <- rPlot(mpg ~ wt, data = mtcars, type = 'point')
  3. r1