data(iris) # data set
data <- iris[,1:4]
cls <- iris[,5] # data class
pc <- PCA(data, 2)
tit <- c("Scree-plot","Observations","Correlations")
cls <- as.character(iris[,5])
Plot.PCA(PC = pc, titles = tit, xlabel = NA, ylabel = NA,
color = TRUE, linlab = NA, savptc = FALSE, size = 1.1,
posleg = 2, boxleg = FALSE, class = cls, axes = TRUE,
classcolor = c("blue3","red","goldenrod3"),
width = 3236, height = 2000, res = 300, casc = FALSE)
Run the code above in your browser using DataLab