polar2xy <- function(radius,angle){
x <- radius*cos(angle/360*(2*pi))
y <- radius*sin(angle/360*(2*pi))
data.frame(x=x,y=y)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.