data(iris) # dataset
data <- iris[,1:4]
Biplot(data)
cls <- iris[,5]
res <- Biplot(data, alpha = 0.6, title = "Biplot of data valuing individuals",
class = cls, classcolor = c("goldenrod3","gray56","red"),
posleg = 2, boxleg = FALSE, axes = TRUE, savptc = FALSE,
width = 3236, height = 2000, res = 300)
print(res$pvar)
res <- Biplot(data, alpha = 0.4, title = "Graph valuing the variables",
xlabel = "", ylabel = "", color = FALSE, obs = FALSE,
savptc = FALSE, width = 3236, height = 2000, res = 300)
print(res$pvar)
Run the code above in your browser using DataLab