* Delete time variable
* Set shopping_pt as qualitative variable
* Delete shopping_pt from the principal component variables
* Add unitary variables plot
* Add legend