R语言如何绘制动态三维PCA图

前言

本文是R包plotly包绘制动态交互三维PCA图

什么是PCA？

人眼一般能感知的空间为二维和三维。高维数据可视化的重要目标就是将高维数据呈现于二维或三维空间中。高维数据变换就是使用降维度的方法，使用线性或非线性变换把高维数据投影到低维空间，去掉冗余属性，但同时尽可能地保留高维空间的重要信息和特征。

PCA, 主成分分析法，也被称为主分量分析法，是很常用的一种数据降维方法。主成分分析法采用一个线性变换将数据变换到一个新的坐标系统，使得任何数据点投影到第一个坐标（第一主成分）的方差最大，在第二个坐标（第二主成分）的方差为第二大，以此类推。因此，主成分分析可以减少数据的维数，并保留对方差贡献最大的特征。

三维PCA和普通PCA的区别就是多了一个维度。

是主成分分析的PC1，PC2和PC3的结果，xyz坐标分别为前三个主成分，括号内的百分比为该主成分能解释的变量的百分比。PCA得分图能将对照组和实验组样本区分开。在PCA图中，如果样本之间聚集在一起，说明这些样本差异性小；反之样本之间距离越远，说明样本之间差异性越大。不同颜色的散点表示不同实验分组的样本。

绘图前的数据准备

绘图数据

数据来源一般是搜库结果定量表。包含2个维度的数据，一般情况下，每一行是一个基因，每一列是一个样本。

demo数据可以在https://www.r2omics.cn/res/demodata/PCA/data.txt下载。

分组数据

demo数据可以在https://www.r2omics.cn/res/demodata/PCA/sample.class.txt下载。

R语言如何绘制三维PCA图

# 代码来源：https://www.r2omics.cn/
# 加载R包，没有安装请先安装  install.packages("包名") 
library(plotly)
library(tidyverse)
library(htmlwidgets)

# 读取PCA数据文件
df = read.delim("https://www.r2omics.cn/res/demodata/PCA/data.txt",# 这里读取了网络上的demo数据，将此处换成你自己电脑里的文件
                header = T,    # 指定第一行是列名
                row.names = 1  # 指定第一列是行名
)
df=t(df) # 对数据进行转置，如果想对基因分组则不用转置

# 读取样本分组数据文件
dfGroup = read.delim("https://www.r2omics.cn/res/demodata/PCA/sample.class.txt",
                     header = T,
                     row.names = 1
)

# PCA计算
pca_result <- prcomp(df,
                     scale=T  # 一个逻辑值，指示在进行分析之前是否应该将变量缩放到具有单位方差
)
pca_result$x<-data.frame(pca_result$x)

#计算PC值，并替换列名，用来替换坐标轴上的标签
pVar <- pca_result$sdev^2/sum(pca_result$sdev^2)
pVar = round(pVar,digits = 3)
colnames(pca_result$x)[1] = paste0("PC1 (",as.character(pVar[1] * 100 ),"%)")
colnames(pca_result$x)[2] = paste0("PC2 (",as.character(pVar[2] * 100 ),"%)")
colnames(pca_result$x)[3] = paste0("PC3 (",as.character(pVar[3] * 100 ),"%)")

pca_result$x = pca_result$x %>%
  rownames_to_column()

# 绘图
fig <- plot_ly(pca_result$x,
               text = ~paste0(rowname),
               x = ~pca_result$x[,2],
               y = ~pca_result$x[,3],
               z = ~pca_result$x[,4],
               color = ~dfGroup[,1],
              colors = c('#BF382A', '#0C4B8E',"#11d169")

               )
fig <- fig %>% add_markers()
fig <- fig %>% layout(scene = list(xaxis = list(title = colnames(pca_result$x)[2]),
                                   yaxis = list(title = colnames(pca_result$x)[3]),
                                   zaxis = list(title = colnames(pca_result$x)[4])))

fig <- fig %>% config(displaylogo = FALSE)
fig
# 保存为网页
# htmlwidgets::saveWidget(fig,"pca3.html")