Run PCA model for a dataset and build a plot.

pca_inbar(data)