You have to do a PCA, but don't draw plots using the argument graph=FALSE
, and then you plot the plot using the plot function:
data(decathlon)
res <- PCA(decathlon,quanti.sup=11:12, quali.sup=13, graph=FALSE)
plot(res, choix="ind")
plot(res, choix="var")
source
to share