PCA_Food

Data set

El data set es tomado de https://grace.rbind.io/post/2019-02-22-emoji-mds

EmojisFood <- read.csv("C:/Users/vibr1874/Desktop/I Semestre MAIN/Visualizacion/PCA_ALIMENTOS/Data/EmojisFood.csv")

foods.pca<-prcomp(as.data.frame(EmojisFood[,c(3:35)]), center = TRUE, scale=TRUE)
#summary(food.pca)

#install.packages("devtools")
library(devtools)
#install_github("vqv/ggbiplot")
library(ggbiplot)

ggbiplot(foods.pca, labels=EmojisFood$name)+geom_jitter(position="jitter")