PCA_food

Data set

data = read.csv("Datos/EmojisFood.csv")
#View(data)
#summary(data)

food.pca = prcomp(data[,c(3:35)], center= T,scale=T)

#summary(food.pca)

#install.packages("devtools")
library(devtools)

## Loading required package: usethis

#install_github("vqv/ggbiplot")
library(ggbiplot)

## Loading required package: ggplot2

## Loading required package: plyr

## Loading required package: scales

## Loading required package: grid

ggbiplot(food.pca, labels = data$name)+geom_jitter()