Nothing
library(adegraphics)
pdf("s.corcircle.pdf")
data(olympic, package = "ade4")
dudi1 <- ade4::dudi.pca(olympic$tab, scan = FALSE) # a normed PCA
g1 <- s.corcircle(dudi1$co, lab = names(olympic$tab))
g2 <- s.corcircle(dudi1$co, lab = names(olympic$tab), fullcircle = T)
g3 <- s.corcircle(dudi1$co, lab = names(olympic$tab), fullcircle = FALSE)
g4 <- s.corcircle(dudi1$co, lab = names(olympic$tab), pback.col = "red", pbackground.box = FALSE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.