old PCA GGPLOT

old PCA GGPLOT.R

#    e<-pcaCalculation()
#
#     if(any(names(e) == 'd')){
#
#       p<-ggplot(e,aes(Dim.1,Dim.2,label=nam,col=factor(e$d)))+
#         geom_text()+
#         xlab("Dimension 1")+
#         ylab("Dimension 2")+
#         ggtitle("Zoomable PCA of Protein MALDI Spectra")+
#         theme(plot.title=element_text(size=15),legend.position="none")
#     }else{
#
#       p<-ggplot(e,aes(Dim.1,Dim.2,label=nam))+
#         geom_text()+
#         xlab("Dimension 1")+
#         ylab("Dimension 2")+
#         ggtitle("Zoomable PCA of Protein MALDI Spectra")+
#         theme(plot.title=element_text(size=15),legend.position="none")
#
#
#     }
#     ggplotly(p)