Perceptual Mapping Lab

p <- ggbiplot(pca_res, groups = grocery_all$Group, ellipse = TRUE, circle = TRUE)
p <- p + ggtitle("Perceptual Map: PCA Biplot for Bakersfield Grocery Consumers") +
         theme_minimal()
print(p)