需要表达矩阵和分组向量
library(pca3d)
library(rgl)
pca <- prcomp(t(exp), scale.= TRUE )
pca3d( pca, group= group_list , show.ellipses=TRUE, show.plane=F)
library(pca3d)
library(rgl)
pca <- prcomp(t(exp), scale.= TRUE )
pca3d( pca, group= group_list , show.ellipses=TRUE, show.plane=F)