library(plotpc) data(iris) x <- iris[, -5] # -5 to drop Species plotld(x, main="principal component loadings")
