r

library(ggbiplot)
d<-read.table("pca_5_desc_bb_subset.tab", header=TRUE, sep="")
d.class<-d[,6]
d.pca <- prcomp(d[,1:5], center = TRUE, scale = TRUE)
summary(d1.pca)
plot(d.pca,type="lines")
g <- ggbiplot(d.pca, obs.scale = 1, groups = d.class, ellipse = FALSE, circle = FALSE, varname.size = 0) + scale_color_discrete(name = '')
+ theme(legend.direction = 'vertical', legend.position = 'right', legend.text = element_text(size = rel(2)), legend.key.size = unit(2, "lines"), panel.background = element_rect(fill = 'white', colour = 'black'))
print(g)