summary(mtcars_pca)

ggbiplot(mtcars_pca,ellipse=TRUE, labels=rownames(mtcars), groups=mtcars_country)