Run association tests
assoc_results = list()
for(cell_i in names(celltype_exp)) {
exprData = as.data.frame(celltype_exp[[cell_i]])
# Filter the gene expression
exprData_ensembl = gsub("(.*)\\.(.*)","\\1", rownames(exprData))
exprData_filt = exprData[exprData_ensembl %in% cytokines$ensembl, ]
exprData_filt$ensembl = gsub("(.*)\\.(.*)","\\1",rownames(exprData_filt))
exprData_cytokines = merge(exprData_filt, cytokines, by = "ensembl")
rownames(exprData_cytokines) = exprData_cytokines$symbol
exprData_cytokines$ensembl = NULL
exprData_cytokines$symbol = NULL
data4linear_reg <- as.data.frame(t(exprData_cytokines))
phenotype_dt <- pheno_SN[match(rownames(data4linear_reg), pheno_SN$projid), ]
res_test = run_module_trait_association(data4linear_reg,
phenotype_dt,
pheno_list,
covariates = covariates)
assoc_results[[cell_i]] = res_test
}
## Loading required package: lme4
## Loading required package: Matrix
##
## Attaching package: 'Matrix'
## The following objects are masked from 'package:tidyr':
##
## expand, pack, unpack
## Loading required package: lmerTest
##
## Attaching package: 'lmerTest'
## The following object is masked from 'package:lme4':
##
## lmer
## The following object is masked from 'package:stats':
##
## step
## Loading required package: performance
## Loading required package: ggeffects
## Loading required package: parameters
## Loading required package: datawizard
##
## Attaching package: 'datawizard'
## The following objects are masked from 'package:ggpubr':
##
## mean_sd, median_mad
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CX3CL1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(HGF) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(KITLG) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(THPO) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF13B) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL7) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TGFB1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(C5) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(VEGFA) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF4) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(SPP1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(PSPN) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF9) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(FGF2) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(EGF) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CXCL14) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL18) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CCL28) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CXCL13) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL34) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL15) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL16) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL17D) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CXCL17) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF12) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CX3CL1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(DCN) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IGF1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(HGF) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(KITLG) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF13B) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL7) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TGFB1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(C5) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(VEGFA) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF4) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(SPP1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(PSPN) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF9) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(C3) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(FGF2) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(EGF) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CXCL14) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL18) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CXCL13) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL34) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL15) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL16) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL17D) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(NOG) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF12) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CX3CL1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(DCN) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IGF1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(HGF) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(KITLG) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF13B) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL7) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TGFB1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(C5) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(VEGFA) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF4) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(SPP1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(PSPN) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF9) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(C3) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(FGF2) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CXCL14) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL18) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL34) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF13) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(GDNF) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL17D) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CSF1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IFNA2) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CXCL17) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IFNA13) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF12) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CX3CL1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(DCN) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(HGF) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(KITLG) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(FLT3LG) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF13B) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL7) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TGFB1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(C5) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(VEGFA) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF4) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(SPP1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(PSPN) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(C3) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL33) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(FGF2) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(EGF) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CXCL14) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CTF1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL18) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL34) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF13) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL15) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL17D) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CSF1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CXCL17) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF12) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CX3CL1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(KITLG) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(FLT3LG) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF13B) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL7) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TGFB1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(C5) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(VEGFA) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(SPP1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(FGF2) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CXCL14) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL18) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL34) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF13) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(GDNF) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL17D) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CSF1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CXCL17) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF12) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CX3CL1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IGF1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(HGF) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(KITLG) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(FLT3LG) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF13B) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL7) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(EBI3) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TGFB1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(C5) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF8) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(VEGFA) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL1A) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(SPP1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF10) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL1B) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(C3) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(FGF2) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CXCL14) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL18) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL34) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF13) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL15) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL16) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL17D) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF12) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(CX3CL1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL32) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(DCN) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(KITLG) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TGFB1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(SPP1) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF10) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(FGF2) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(IL15) + age_death + msex + educ + pmi"
## [1] "Testing (n=423): scale(apoe_any4) ~ scale(TNFSF12) + age_death + msex + educ + pmi"
save(assoc_results, file = file.path(work_dir, "cytokines_snRNA_APOE_association_results.RData"))
all_stats = lapply(assoc_results, function(x) x$all_stats_df) %>%
bind_rows(.id = "cell_type") %>%
mutate(cell_type = factor(cell_type, levels = names(celltype_exp))) %>%
arrange(p)
ext
createDT(all_stats[all_stats$cell_type == "ext",])
inh
createDT(all_stats[all_stats$cell_type == "inh",])
oli
createDT(all_stats[all_stats$cell_type == "oli",])
ast
createDT(all_stats[all_stats$cell_type == "ast",])
opc
createDT(all_stats[all_stats$cell_type == "opc",])
mic
createDT(all_stats[all_stats$cell_type == "mic",])
end
createDT(all_stats[all_stats$cell_type == "end",])