Plot all the components of a PCA

Question

I'd like to know how can we do to plot the individual in more than the first and second component, like this :

Answer 1

This might work:

pc.cr <- princomp(USArrests, cor = TRUE)
pairs(pc.cr$loadings, col=c("red", "green", "blue"))