绘制出PCA图，并标出样品标签，绘制置信圆，

利用以下R语言代码构建的测试数据，绘制出PCA图，并标出样品标签，绘制置信圆，并按照毕业论文要求写出“结果和讨论”
data.matrix <- matrix(nrow-100,ncol=10)colnames(data.matrix) <- c(paste(“CK”,1:5, sep=“”),paste(“RM”,1:5,sep=“”))rownames(data.matrix) <- paste(“gene”,1:100, sep="for (i in 1:100)
wt.values <- rpois(5,lambda=sample(x=10:1000, size=1))ko.values <- rpois(5,lambda=sample(x=10:1000, size=1))data.matrix[i,] <- c(wt.values, ko.values)

data.matrix <- matrix(nrow=100,ncol