plot.loadings(object, variables=1:min(5, p), nbars=6, ...)
longley.pc <- princomp(longley.x, cor=T) plot(loadings(longley.pc))