install.packages("devtools")
library(devtools)
devtools::install_github('liuyuchenlab/qqercc')
library(qqercc)
result <- qqercc("ercc.xlsx", control_group = "control")
#定义比较组
comparisons_list <- list(
c("DMSO-2-cell", "PlaB-2-cell"))
# 定义颜色,与比较组对应
colors <- c("#FF5733", "#33FF57") # 每个颜色对应comparisons_list中的一组比较
#运行函数
result <- qqercc("ercc.xlsx", control_group = "control",
comparisons = comparisons_list, method = "deseq2",
format = "bar",
color = colors
)
result <- qqercc("ercc.xlsx", control_group = "control",
comparisons = comparisons_list,
format = "dot"
)
result <- qqercc("ercc.xlsx", control_group = "control",
comparisons = comparisons_list,
format = "box"
)