- 数据预处理
suppressMessages(library(scatterplot3d))
data_3d <- read_xlsx("all genes pca 3d - 副本.xlsx", sheet = 1, col_names = T)
head(data_3d)
data_3d <- data.frame(data_3d)
data_3d$type <- factor(data_3d$type, levels = c("WT MII oocyte", "WT 2-cell", "NT 2-cell arrest", "NT 4-cell arrest in 2 -cell atage", "NT 2-cell to blast", "NT 4-cell arrest",