biocLite('devtools')
##下载ggbiplot
library(devtools)
install_github('vqv/ggbiplot')
gene<-read.table('1.txt',head=T,sep='')
gene.pca <- prcomp(gene, scale. = TRUE)
ggbiplot(gene.pca, obs.scale = 0.5, var.scale = 5, groups = gene$name, varname.size=10,ellipse = TRUE,var.axes = F)
library(devtools)
install_github('vqv/ggbiplot')
gene<-read.table('1.txt',head=T,sep='')
gene.pca <- prcomp(gene, scale. = TRUE)
ggbiplot(gene.pca, obs.scale = 0.5, var.scale = 5, groups = gene$name, varname.size=10,ellipse = TRUE,var.axes = F)