VIDEO: Looking to the loadings in R

Bonus:
You can use also this option:
plot(Active_reg1,"loadings",comps=1:3,legendpos="topleft")
to get this nice plot of the first three loadings: