s.corcircle(dfxy, xax = 1, yax = 2, label = row.names(df),
clabel = 1, grid = TRUE, sub = "", csub = 1, possub = "bottomleft",
cgrid = 0, fullcircle = TRUE, box = FALSE, add.plot = FALSE)
par("cex")*clabel
par("cex")*csub
cgrid
to indicate the mesh of the griddata (olympic)
dudi1 <- dudi.pca(olympic$tab, scan = FALSE) # a normed PCA
par(mfrow = c(2,2))
s.corcircle(dudi1$co, lab = names(olympic$tab))
s.corcircle(dudi1$co, cgrid = 0, full = FALSE, clab = 0.8)
s.corcircle(dudi1$co, lab = as.character(1:11), cgrid = 2,
full = FALSE, sub = "Correlation circle", csub = 2.5,
possub = "bottomleft", box = TRUE)
s.arrow(dudi1$co, clab = 1)
Run the code above in your browser using DataLab