library(ggplot2)
N <- nlevels(factor(mtcars$carb))
ggplot(mtcars, aes(wt, disp, col=factor(carb))) +
geom_point() +
scale_color_manual(values = gg_color_hue(N))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.