Contents

1 Introduction

Single-cell RNA-sequencing (scRNA-seq) technologies have revealed cell heterogeneity. Marker gene expressions are considered as the most intuitive and informative measurements distinguishing different cell types. Although several computational methods have been proposed to do marker gene selection from clusters or cell types, none of them applied marker gene information on bulk RNA-seq experiments to find cell type or cluster enrichment. Here, we present LRcell package, which uses Logistic/Linear Regression to identify the most transcriptionally enriched cell types or clusters when applying cell marker information to a bulk experiment with p-values measurements of differentially expressed genes.

Pre-Loaded Marker genes information: This package offers marker genes information in 1 human PBMC data, 1 human brain region and 9 mouse brain regions.

2 Standard Workflow

2.1 Installation

This is a R Bioconductor package and it can be installed by using BiocManager.

if (!requireNamespace("BiocManager", quietly = TRUE))
    install.packages("BiocManager") ## this will install the BiocManager package
BiocManager::install("LRcell")
#> Bioconductor version 3.17 (BiocManager 1.30.20), R 4.3.0 RC (2023-04-13 r84269)
#> Warning: package(s) not installed when version(s) same as or greater than current; use
#>   `force = TRUE` to re-install: 'LRcell'
#> Old packages: 'CBEA', 'SnowballC'

To check whether LRcell package is successfully installed:

library(LRcell)
#> Loading required package: ExperimentHub
#> Loading required package: BiocGenerics
#> 
#> Attaching package: 'BiocGenerics'
#> The following objects are masked from 'package:stats':
#> 
#>     IQR, mad, sd, var, xtabs
#> The following objects are masked from 'package:base':
#> 
#>     Filter, Find, Map, Position, Reduce, anyDuplicated, aperm, append,
#>     as.data.frame, basename, cbind, colnames, dirname, do.call,
#>     duplicated, eval, evalq, get, grep, grepl, intersect, is.unsorted,
#>     lapply, mapply, match, mget, order, paste, pmax, pmax.int, pmin,
#>     pmin.int, rank, rbind, rownames, sapply, setdiff, sort, table,
#>     tapply, union, unique, unsplit, which.max, which.min
#> Loading required package: AnnotationHub
#> Loading required package: BiocFileCache
#> Loading required package: dbplyr
#> Warning: replacing previous import 'utils::findMatches' by
#> 'S4Vectors::findMatches' when loading 'AnnotationDbi'

2.2 LRcell usage

Once we have LRcell package loaded, we can start using it to analyze the transcriptional engagement of cell types or clusters. LRcell takes both single-cell marker genes list and p-values of bulk DE genes as input to calculate the enrichment of cell-type specific marker genes in the ranked DE genes.

As mentioned above, LRcell provides single-cell marker genes list in 1 human PBMC data, 1 human brain region (Prefrontal Cortex) and 9 mouse brain regions (Frontal Cortex, Cerebellum, Globus Pallidus, Hippocampus, Entopeduncular, Posterior Cortex, Striatum, Substantia Nigra and Thalamus).

  • The human PBMC data comes from volunteers enrolled in an HIV vaccine trial (Hao et al. 2020) at time point of day 0.
  • The human brain data comes from control samples in Major Depressive Disorder studies. (Nagy et al. 2020).
  • The mouse data comes from the whole brain single-cell RNA-seq experiments(Saunders et al. 2018). Another resource for this dataset is DropViz.

The data is stored in another Bioconductor ExperimentHub package named LRcellTypeMarkers. Users can access the data through ExperimentHub by:

## for installing ExperimentHub
# BiocManager::install("ExperimentHub")

## query data
library(ExperimentHub)
eh <- ExperimentHub::ExperimentHub()
eh <- AnnotationHub::query(eh, "LRcellTypeMarkers")  ## query for LRcellTypeMarkers package
eh  ## this will list out EH number to access the calculated gene enrichment scores
#> ExperimentHub with 15 records
#> # snapshotDate(): 2023-04-24
#> # $dataprovider: Emory University
#> # $species: Mus musculus, Homo sapiens
#> # $rdataclass: Matrix, list
#> # additional mcols(): taxonomyid, genome, description,
#> #   coordinate_1_based, maintainer, rdatadateadded, preparerclass, tags,
#> #   rdatapath, sourceurl, sourcetype 
#> # retrieve records with, e.g., 'object[["EH4548"]]' 
#> 
#>            title                               
#>   EH4548 | Mouse Frontal Cortex Marker Genes   
#>   EH4549 | Mouse Cerebellum Marker Genes       
#>   EH4550 | Mouse Entopeduncular Marker Genes   
#>   EH4551 | Mouse Globus Pallidus Marker Genes  
#>   EH4552 | Mouse Posterior Cortex Marker Genes 
#>   ...      ...                                 
#>   EH5420 | Human PBMC Marker Genes             
#>   EH6727 | MSigDB C8 MANNO MIDBRAIN            
#>   EH6728 | MSigDB C8 ZHENG CORD BLOOD          
#>   EH6729 | MSigDB C8 FAN OVARY                 
#>   EH6730 | MSigDB C8 RUBENSTEIN SKELETAL MUSCLE

## get mouse brain Frontal Cortex enriched genes
enriched.g <- eh[["EH4548"]]
#> see ?LRcellTypeMarkers and browseVignettes('LRcellTypeMarkers') for documentation
#> loading from cache
marker.g <- get_markergenes(enriched.g, method="LR", topn=100)

Users are also encouraged to process a read count matrix with cell annotation information into a gene enrichment scores matrix.

enriched.g <- LRcell_gene_enriched_scores(expr, annot, power=1, parallel=TRUE, n.cores=4)

Here, expr is a read count matrix with rows as genes and columns as cells. annot is a named-vector with names as cell names (which is in accordance with the column names of expr) and values as annotated cell types. power is a hyper-parameter controlling how much penalty for the proportion of cells expressing certain gene. parallel and n.cores are two parameters for executing function in parallel to accelerate the calculation.

2.2.1 Directly indicate species and brain region in LRcell

Compared to processing data yourself, a much easier way is to indicate species and brain region or tissue. In this way, marker genes are extracted from ExperimentHub accordingly. For example, we can use mouse Frontal Cortex marker genes to do LRcell analysis on the example bulk experiment(Swarup et al. 2019). (The example contains 23, 420 genes along with p-values calculated from DESeq2. Data is processed from a mouse Alzheimer’s disease model (GEO: GSE90693), which is 6 months after treatment in Frontal Cortex brain region.)

# load example bulk data
data("example_gene_pvals")
head(example_gene_pvals, n=5)
#>         Xkr4          Rp1        Sox17       Mrpl15       Lypla1 
#> 1.742186e-05 4.103134e-02 9.697389e-02 1.206500e-02 6.609558e-01

Here, we use Linear Regression:

res <- LRcell(gene.p = example_gene_pvals,
              marker.g = NULL,
              species = "mouse",
              region = "FC",
              method = "LiR")
#> see ?LRcellTypeMarkers and browseVignettes('LRcellTypeMarkers') for documentation
#> loading from cache
FC_res <- res$FC
# exclude leading genes for a better view
sub_FC_res <- subset(FC_res, select=-lead_genes)
head(sub_FC_res)
#>                        ID genes_num          coef   p.value       FDR
#> 1  FC_1-1.Interneuron_CGE        98  6.065974e-04 0.2365456 0.4088820
#> 2 FC_1-10.Interneuron_CGE        92 -7.992953e-05 0.9154947 0.9515587
#> 3 FC_1-11.Interneuron_CGE        95  1.183490e-06 0.9987899 0.9987899
#> 4  FC_1-2.Interneuron_CGE        98  4.642689e-04 0.3418545 0.5114907
#> 5  FC_1-3.Interneuron_CGE        85 -2.765110e-04 0.6647116 0.8273606
#> 6  FC_1-4.Interneuron_CGE        98  5.427872e-06 0.9950063 0.9987899
#>         cell_type
#> 1 Interneuron_CGE
#> 2 Interneuron_CGE
#> 3 Interneuron_CGE
#> 4 Interneuron_CGE
#> 5 Interneuron_CGE
#> 6 Interneuron_CGE

Plot out the result:

plot_manhattan_enrich(FC_res, sig.cutoff = .05, label.topn = 5)

According to the result, when using enrichment scores as a predictor variable in Linear Regression, one cluster of Astrocytes (FC_8-2.Astrocytes) is the mostly enriched along with Microglia (FC_11-1.Microglia). (Note that although cluster FC_11-4 was annotated as unknown in the publication, according to our research, FC_11-* belong to Microglia/Macrophage cell types.) Recent publications have shown that Astrocytes are involved in Alzheimer’s Disease.

2.2.2 Marker gene download and do LRcell analysis

Marker gene list downloading example (mouse, Frontal Cortex, Logistic Regression):

library(ExperimentHub)
eh <- ExperimentHub::ExperimentHub()  ## use ExperimentHub to download data
eh <- query(eh, "LRcellTypeMarkers")
enriched_genes <- eh[["EH4548"]]  # use title ID which indicates FC region
#> see ?LRcellTypeMarkers and browseVignettes('LRcellTypeMarkers') for documentation
#> loading from cache
# get marker genes for LRcell in logistic regression
FC_marker_genes <- get_markergenes(enriched_genes, method="LR", topn=100)

# to have a glance of the marker gene list
head(lapply(FC_marker_genes, head))
#> $`FC_1-1.Interneuron_CGE`
#> [1] "Npy"    "Pde11a" "Kit"    "Gad2"   "Fam46a" "Pnoc"  
#> 
#> $`FC_1-10.Interneuron_CGE`
#> [1] "Krt73"   "Npas1"   "Yjefn3"  "Dlx6os1" "Igf1"    "Sln"    
#> 
#> $`FC_1-11.Interneuron_CGE`
#> [1] "Htr3a"     "Tnfaip8l3" "Npy2r"     "Adarb2"    "Npas1"     "Crabp1"   
#> 
#> $`FC_1-2.Interneuron_CGE`
#> [1] "Ndnf"  "Kit"   "Reln"  "Npy"   "Cplx3" "Gad1" 
#> 
#> $`FC_1-3.Interneuron_CGE`
#> [1] "Calb2"  "Crh"    "Nr2f2"  "Dlx1"   "Penk"   "Pcdh18"
#> 
#> $`FC_1-4.Interneuron_CGE`
#> [1] "Htr3a"    "Tac2"     "Vip"      "Crh"      "Crispld2" "Adarb2"

Then, we can run LRcell analysis by using LRcellCore() function using Logistic Regression.

res <- LRcellCore(gene.p = example_gene_pvals,
           marker.g = FC_marker_genes,
           method = "LR", min.size = 5, 
           sig.cutoff = 0.05)
#> Warning: glm.fit: algorithm did not converge
## curate cell types
res$cell_type <- unlist(lapply(strsplit(res$ID, '\\.'), '[', 2))
head(subset(res, select=-lead_genes))
#>                        ID genes_num        coef odds_ratio     p.value
#> 1  FC_1-1.Interneuron_CGE        98 0.011908189   1.076812 0.006035417
#> 2 FC_1-10.Interneuron_CGE        92 0.006805227   1.043199 0.358384832
#> 3 FC_1-11.Interneuron_CGE        95 0.006160366   1.039027 0.441406086
#> 4  FC_1-2.Interneuron_CGE        98 0.009983947   1.064012 0.039942444
#> 5  FC_1-3.Interneuron_CGE        85 0.004671113   1.029455 0.651009137
#> 6  FC_1-4.Interneuron_CGE        98 0.006406322   1.040616 0.400647777
#>          FDR       cell_type
#> 1 0.01357969 Interneuron_CGE
#> 2 0.41470245 Interneuron_CGE
#> 3 0.48316072 Interneuron_CGE
#> 4 0.05882433 Interneuron_CGE
#> 5 0.66749038 Interneuron_CGE
#> 6 0.45707704 Interneuron_CGE

Plot out the result:

plot_manhattan_enrich(res, sig.cutoff = .05, label.topn = 5)

We can clearly find that Microglia (FC_11-1.Microglia) is the most transcriptionally enriched when using Logistic Regression analysis. The result is clear and sound because proliferation and activation of Microglia in the brain is a known feature of Alzheimer’s Disease (AD).

LRcell is used to give a hint on which cell types are potentially involved in diseases when a paired scRNA-seq and bulk RNA-seq experiments are unavailable. Thus, LRcell can be applied to the considerable amount of bulk DEG experiments to shed light on biological discoveries.

2.3 Calculate gene enrichment scores from expression dataframe

The gene enrichment score calculation is based on algorithm proposed in (Marques et al. 2016), which takes both enrichment of genes in certain cell types and fraction of cells expressing the gene into consideration. If interested, please take a look at the Supplementary Materials in the original paper.

LRcell_gene_enriched_scores() function takes the gene-by-cell expression matrix and a cell-type annotation as input, which means cell type assignments should be done first. The columns of the expression matrix should be in accordance with cell names in the annotation vector.

Take a randomly-generated data as example.

# print out the generated expression matrix
print(sim.expr)
#>       cell1 cell2 cell3 cell4 cell5 cell6 cell7 cell8 cell9 cell10
#> gene1     3     0     2     8    10     6     1     0     0      2
#> gene2     7     5     8     1     0     5     2     3     2      1
#> gene3     8    10     6     7     8     9     5     8     6      8

# print out the cell-type annotation
print(sim.annot)
#>       cell1       cell2       cell3       cell4       cell5       cell6 
#> "celltype1" "celltype1" "celltype1" "celltype2" "celltype2" "celltype2" 
#>       cell7       cell8       cell9      cell10 
#> "celltype3" "celltype3" "celltype3" "celltype3"

This toy example contains 3 genes and 10 cells. As you can tell from the matrix, gene1 is a marker gene of celltype2; gene2 is a marker gene of celltype1; gene3 is a house keeping gene.

# generating the enrichment score 
enriched_res <- LRcell_gene_enriched_scores(expr = sim.expr,
                            annot = sim.annot, parallel = FALSE)
#> Generate enrichment score for each gene..
#> 
  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |=======================                                               |  33%
  |                                                                            
  |===============================================                       |  67%
  |                                                                            
  |======================================================================| 100%
#> total gene number: 3
enriched_res
#>       celltype1 celltype2 celltype3
#> gene1 0.3472222 2.5000000 0.1171875
#> gene2 1.9607843 0.3921569 0.5882353
#> gene3 1.0666667 1.0666667 0.9000000

According to the result, it is a gene-by-celltype dataframe indicating the enrichment score of genes in different cell type. Since gene2 is a marker gene of celltype1, thus it has the highest enrichment score.

When choosing marker genes using top 1 as threshold:

marker_res <- get_markergenes(enriched.g = enriched_res,
                method = "LR", topn=1)
marker_res
#> $celltype1
#> [1] "gene2"
#> 
#> $celltype2
#> [1] "gene1"
#> 
#> $celltype3
#> [1] "gene3"

3 SessionInfo

sessionInfo()
#> R version 4.3.0 RC (2023-04-13 r84269)
#> Platform: x86_64-pc-linux-gnu (64-bit)
#> Running under: Ubuntu 22.04.2 LTS
#> 
#> Matrix products: default
#> BLAS:   /home/biocbuild/bbs-3.17-bioc/R/lib/libRblas.so 
#> LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.10.0
#> 
#> locale:
#>  [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
#>  [3] LC_TIME=en_GB              LC_COLLATE=C              
#>  [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
#>  [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
#>  [9] LC_ADDRESS=C               LC_TELEPHONE=C            
#> [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       
#> 
#> time zone: America/New_York
#> tzcode source: system (glibc)
#> 
#> attached base packages:
#> [1] stats     graphics  grDevices utils     datasets  methods   base     
#> 
#> other attached packages:
#> [1] LRcellTypeMarkers_1.7.0 LRcell_1.8.0            ExperimentHub_2.8.0    
#> [4] AnnotationHub_3.8.0     BiocFileCache_2.8.0     dbplyr_2.3.2           
#> [7] BiocGenerics_0.46.0     BiocStyle_2.28.0       
#> 
#> loaded via a namespace (and not attached):
#>  [1] tidyselect_1.2.0              farver_2.1.1                 
#>  [3] dplyr_1.1.2                   blob_1.2.4                   
#>  [5] filelock_1.0.2                Biostrings_2.68.0            
#>  [7] bitops_1.0-7                  fastmap_1.1.1                
#>  [9] RCurl_1.98-1.12               promises_1.2.0.1             
#> [11] digest_0.6.31                 mime_0.12                    
#> [13] lifecycle_1.0.3               ellipsis_0.3.2               
#> [15] KEGGREST_1.40.0               interactiveDisplayBase_1.38.0
#> [17] RSQLite_2.3.1                 magrittr_2.0.3               
#> [19] compiler_4.3.0                rlang_1.1.0                  
#> [21] sass_0.4.5                    tools_4.3.0                  
#> [23] utf8_1.2.3                    yaml_2.3.7                   
#> [25] knitr_1.42                    labeling_0.4.2               
#> [27] bit_4.0.5                     curl_5.0.0                   
#> [29] BiocParallel_1.34.0           withr_2.5.0                  
#> [31] purrr_1.0.1                   grid_4.3.0                   
#> [33] stats4_4.3.0                  fansi_1.0.4                  
#> [35] xtable_1.8-4                  colorspace_2.1-0             
#> [37] ggplot2_3.4.2                 scales_1.2.1                 
#> [39] cli_3.6.1                     rmarkdown_2.21               
#> [41] crayon_1.5.2                  generics_0.1.3               
#> [43] httr_1.4.5                    DBI_1.1.3                    
#> [45] cachem_1.0.7                  zlibbioc_1.46.0              
#> [47] parallel_4.3.0                AnnotationDbi_1.62.0         
#> [49] BiocManager_1.30.20           XVector_0.40.0               
#> [51] vctrs_0.6.2                   jsonlite_1.8.4               
#> [53] bookdown_0.33                 IRanges_2.34.0               
#> [55] S4Vectors_0.38.0              bit64_4.0.5                  
#> [57] ggrepel_0.9.3                 magick_2.7.4                 
#> [59] jquerylib_0.1.4               glue_1.6.2                   
#> [61] codetools_0.2-19              gtable_0.3.3                 
#> [63] BiocVersion_3.17.1            later_1.3.0                  
#> [65] GenomeInfoDb_1.36.0           munsell_0.5.0                
#> [67] tibble_3.2.1                  pillar_1.9.0                 
#> [69] rappdirs_0.3.3                htmltools_0.5.5              
#> [71] GenomeInfoDbData_1.2.10       R6_2.5.1                     
#> [73] evaluate_0.20                 shiny_1.7.4                  
#> [75] Biobase_2.60.0                highr_0.10                   
#> [77] png_0.1-8                     memoise_2.0.1                
#> [79] httpuv_1.6.9                  bslib_0.4.2                  
#> [81] Rcpp_1.0.10                   xfun_0.39                    
#> [83] pkgconfig_2.0.3

References

Hao, Yuhan, Stephanie Hao, Erica Andersen-Nissen, William M Mauck, Shiwei Zheng, Andrew Butler, Maddie Jane Lee, et al. 2020. “Integrated Analysis of Multimodal Single-Cell Data.” bioRxiv.

Marques, Sueli, Amit Zeisel, Simone Codeluppi, David van Bruggen, Ana Mendanha Falcão, Lin Xiao, Huiliang Li, et al. 2016. “Oligodendrocyte Heterogeneity in the Mouse Juvenile and Adult Central Nervous System.” Science 352 (6291): 1326–9.

Nagy, Corina, Malosree Maitra, Arnaud Tanti, Matthew Suderman, Jean-Francois Théroux, Maria Antonietta Davoli, Kelly Perlman, et al. 2020. “Single-Nucleus Transcriptomics of the Prefrontal Cortex in Major Depressive Disorder Implicates Oligodendrocyte Precursor Cells and Excitatory Neurons.” Nature Neuroscience, 1–11.

Sartor, Maureen A, George D Leikauf, and Mario Medvedovic. 2009. “LRpath: A Logistic Regression Approach for Identifying Enriched Biological Groups in Gene Expression Data.” Bioinformatics 25 (2): 211–17.

Saunders, Arpiar, Evan Z Macosko, Alec Wysoker, Melissa Goldman, Fenna M Krienen, Heather de Rivera, Elizabeth Bien, et al. 2018. “Molecular Diversity and Specializations Among the Cells of the Adult Mouse Brain.” Cell 174 (4): 1015–30.

Swarup, Vivek, Flora I Hinz, Jessica E Rexach, Ken-ichi Noguchi, Hiroyoshi Toyoshiba, Akira Oda, Keisuke Hirai, et al. 2019. “Identification of Evolutionarily Conserved Gene Networks Mediating Neurodegenerative Dementia.” Nature Medicine 25 (1): 152–64.