aes_to_scale <- list(
x = "x",
y = "y",
xmin = "x",
ymin = "y",
xmax = "x",
ymax = "y",
colour = "colour",
fill = "fill")
scale_to_aes <- invert(aes_to_scale)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.