circle <- function(x, y, r, ...) { ang <- seq(0, 2*pi, length = 100) xx <- x + r * cos(ang) yy <- y + r * sin(ang) polygon(xx, yy, ...) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.