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 :

Accepted Answer

This might work:

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

Solution