library(cranvas)
library(scales)
qtennis = qdata(tennis, color = aces)
qscatter(server.pts, first.serves, data=qtennis)
qparallel(10:14, data=qtennis) # variables including Aces
qscatter(server.pts, aces, data=qtennis)
## now notice the color changes in the plot
color_pal(qtennis) = div_gradient_pal() # change to diverging gradient palette
color_var(qtennis) = 'first.serves' # change color variable from Aces to First.Serves
color_title(qtennis) = 'First Serves' # change title; to be used in legend
cranvas_off()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.