data(iris) # conjunto de dados
data <- iris[,1:4]
cls <- iris[,5] # classe dos dados
pc <- PCA(data, 2) # executa o PCA
tit <- c("Scree-plot","Grafico das Observacoes","Circulo de Correlacoes")
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