PCA图

首先，要准备好要分析的转录组数据。

setwd("C:/Users/Mika/Desktop/PCA")

#打开文件所在路径，并将文件所在目录作为工作目录

data<-read.table(file = "test_data.txt",header = T,sep = "\t")

#读取数据，并将首行作为列名，列间隔识别符为空格