#PCA FUNCTION
fancy.pca <- prcomp(DATA2C ,scale = TRUE)

#FANCY PRINTING OF PCA: GROUPING COLOR / SCHEME / TITLE
g<-ggbiplot(fancy.pca, obs.scale = 1, var.scale = 1,
            groups = factor(DATA2C.class), ellipse = T, circle = T)
g<- g+ scale_color_discrete(name = '')
g<- g+ theme(legend.direction = 'horizontal', legend.position = 'top')+
  ggtitle("Jamaica Bay W-E Distribution PCA ")


print(g)