Site https://hrbrmstr.github.io/metricsgraphics/
library(metricsgraphics) mjs_plot(mtcars, x=wt, y=mpg) %>% mjs_point(color_accessor=carb, size_accessor=carb) %>% mjs_labs(x="Weight of Car", y="Miles per Gallon")