Generating visualisations of cell-cell interactions with CCPlotR
29 October 2024
1 Introduction
This guide provides an overview of the CCPlotR package, a small R package for visualising results from tools that predict cell-cell interactions from scRNA-seq data.
1.1 Motivation
Predicting cell-cell interactions from scRNA-seq data is now a common component of a single-cell analysis workflow (Armingol et al. (2021), Almet et al. (2021)). There have been many tools published in recent years specifically for this purpose (Dimitrov et al. (2022), Efremova et al. (2020), Hou et al. (2020), Jin et al. (2021)). These tools typically return a table of predicted interactions that depicts the sending and receiving cell type, the ligand and receptor genes and some sort of score for ranking the interactions. These tables can be quite large and depending on the amount of cell types included in the analysis, this data can get pretty complex and challenging to visualise. Many tools for predicting cell-cell interactions have built-in visualisation methods but some don’t and it can be time consuming and impractical to install some of these methods just for the purpose of visualising the results if you’re using a different tool to predict the interactions. For these reasons, we have developed a lightweight R package that allows the user to easily generate visualisations of cell-cell interactions with minimal code, regardless of which tool was used for predicting the interactions.
1.2 Installation
if (!require("BiocManager", quietly = TRUE))
install.packages("BiocManager")
BiocManager::install("CCPlotR")
## or for development version:
devtools::install_github("Sarah145/CCPlotR")
2 Input
CCPlotR makes generic plots that can be used to visualise results from multiple tools such as Liana, CellPhoneDB, NATMI etc. All it requires as input is a dataframe with columns source, target, ligand, receptor and score. It should look something like this:
| source | target | ligand | receptor | score |
|---|---|---|---|---|
| B | CD8 T | HLA-DQA1 | LAG3 | 7.22 |
| B | CD8 T | HLA-DRA | LAG3 | 5.59 |
| CD8 T | NK | B2M | KIR2DL3 | 5.52 |
| B | CD8 T | HLA-DQA2 | LAG3 | 5.41 |
| NK | B | LGALS1 | CD69 | 4.15 |
| B | CD8 T | ICAM3 | ITGAL | 2.34 |
For some of the plots, there is an option to also show the expression of the ligands and receptors in each cell type. For those plots, a second dataframe is required, which holds the mean expression values for each gene in each cell type and should look something like this:
| cell_type | gene | mean_exp |
|---|---|---|
| B | ACTR2 | 0.363 |
| B | ADA | 0.0170 |
| B | ADAM10 | 0.0833 |
| B | ADAM28 | 0.487 |
| B | ADCY7 | 0.0336 |
| B | ADRB2 | 0.0178 |
The package comes with toy datasets (toy_data, toy_exp) which you can see for examples of input data.
library(CCPlotR)
data(toy_data, toy_exp, package = 'CCPlotR')
head(toy_data)
#> # A tibble: 6 × 5
#> source target ligand receptor score
#> <chr> <chr> <chr> <chr> <dbl>
#> 1 B CD8 T HLA-DQA1 LAG3 7.22
#> 2 B CD8 T HLA-DRA LAG3 5.59
#> 3 B CD8 T HLA-DQB1 LAG3 5.59
#> 4 B CD8 T HLA-DQA2 LAG3 5.41
#> 5 B CD8 T HLA-DRB5 LAG3 5.26
#> 6 B CD8 T HLA-DRB1 LAG3 5.12
head(toy_exp)
#> # A tibble: 6 × 3
#> # Groups: cell_type [1]
#> cell_type gene mean_exp
#> <chr> <chr> <dbl>
#> 1 B ACTR2 0.363
#> 2 B ADA 0.0170
#> 3 B ADAM10 0.0833
#> 4 B ADAM28 0.487
#> 5 B ADCY7 0.0336
#> 6 B ADRB2 0.01783 Plot types
The package contains functions for making six types of plots: cc_heatmap, cc_dotplot, cc_network, cc_circos, cc_arrow and cc_sigmoid. Below are some examples of each plot type.
3.1 Heatmaps
The cc_heatmap function can generate heatmaps in four different styles. Option A just displays the total number of interactions between each pair of cell types and option B shows the ligands, receptors and cell types involved in each interaction as well as their score. For option B, only a small portion of top interactions are shown to avoid cluttering the plot. There is also an option to generate heatmaps in the style of popular cell-cell interaction prediction tools such as CellPhoneDB and Liana.
cc_heatmap(toy_data)
cc_heatmap(toy_data, option = "B", n_top_ints = 10)
cc_heatmap(toy_data, option = "CellPhoneDB")
3.2 Dotplots
The cc_dotplot function can generate dotplots in four different styles. Option A just displays the total number of interactions between each pair of cell types and option B shows the ligands, receptors and cell types involved in each interaction as well as their score. For option B, only a small portion of top interactions are shown to avoid cluttering the plot. There is also an option to generate dotplots in the style of popular cell-cell interaction prediction tools such as CellPhoneDB and Liana.
cc_dotplot(toy_data)
cc_dotplot(toy_data, option = "B", n_top_ints = 10)
cc_dotplot(toy_data, option = "Liana", n_top_ints = 15)
3.3 Network
The cc_network function can generate two different types of network plots. In option A, the nodes are cell types and the weight of the edges corresponds to the total number of interactions between a given pair of cell types. In option B, the nodes are ligand and receptor genes, coloured by which cell type is expressing them. For option B, only a small portion of top interactions are shown to avoid cluttering the plot.
cc_network(toy_data)
cc_network(toy_data, colours = c("orange", "cornflowerblue", "hotpink"), option = "B")
3.4 Circos plot
The cc_circos function can generate three different types of circos plots. Option A generates a circos plot where the width of the links represents the total number of interactions between each pair of cell types. Option B generates a circos plot showing the ligands, receptors and cell types involved in the top portion of interactions. Option C expands on option B by also showing the mean expression of the ligand and receptor genes in each cell type. In options B and C, the weight of the links represents the score of the interaction.
cc_circos(toy_data)
cc_circos(toy_data, option = "B", n_top_ints = 10, cex = 0.75)
#> Warning: 'gap.degree' can only be modified before `circos.initialize`, or maybe
#> you forgot to call `circos.clear` in your last plot.
cc_circos(toy_data, option = "C", n_top_ints = 15, exp_df = toy_exp, cell_cols = c(`B` = "hotpink", `NK` = "orange", `CD8 T` = "cornflowerblue"), palette = "PuRd", cex = 0.75)
3.5 Paired arrow plot
The cc_arrow function generates plots showing the interactions between a given pair of cell types. Option A just shows which ligands/receptors are interacting between a pair of cell types and option B also shows the expression of the ligand/receptor genes in each cell type. In both options, the weight of the arrow represents the score of the interaction.
cc_arrow(toy_data, cell_types = c("B", "CD8 T"), colours = c(`B` = "hotpink", `CD8 T` = "orange"))
cc_arrow(toy_data, cell_types = c("NK", "CD8 T"), option = "B", exp_df = toy_exp, n_top_ints = 10, palette = "OrRd")
3.6 Sigmoid plot
The cc_sigmoid function plots a portion of interactions using the geom_sigmoid function from the ggbump R package to connect ligands in sender cells to receptors in receiver cells.
cc_sigmoid(toy_data)
4 Customising plots
By default, CCPlotR uses a colour palette that contains 15 colourblind-friendly colours.
scales::show_col(paletteMartin())
Because all plotting functions (with the exception of cc_circos) are built on top of ggplot2, it’s easy to customise and modify the plots according to the users preferences. Colours, fonts and themes can easily be updated using the usual ggplot2 syntax.
library(ggplot2)
library(patchwork)
p1 <- cc_network(toy_data, option = "B") + labs(title = "Default")
p2 <- cc_network(toy_data, option = "B") + scale_fill_manual(values = rainbow(3)) + labs(title = "Update colours")
#> Scale for fill is already present.
#> Adding another scale for fill, which will replace the existing scale.
p3 <- cc_network(toy_data, option = "B") + theme_grey() + labs(title = "Update theme")
p4 <- cc_network(toy_data, option = "B") + theme(legend.position = "top") + labs(title = "Update legend position")
p1 + p2 + p3 + p4
The cc_circos function uses the circlize package to generate to the plots so more information about them can be found here.
5 Session Info
sessionInfo()
#> R Under development (unstable) (2024-10-21 r87258)
#> Platform: x86_64-pc-linux-gnu
#> Running under: Ubuntu 24.04.1 LTS
#>
#> Matrix products: default
#> BLAS: /home/biocbuild/bbs-3.21-bioc/R/lib/libRblas.so
#> LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.12.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] patchwork_1.3.0 ggplot2_3.5.1 CCPlotR_1.5.0 BiocStyle_2.35.0
#>
#> loaded via a namespace (and not attached):
#> [1] tidyselect_1.2.1 viridisLite_0.4.2 dplyr_1.1.4
#> [4] farver_2.1.2 viridis_0.6.5 ggraph_2.2.1
#> [7] fastmap_1.2.0 tweenr_2.0.3 digest_0.6.37
#> [10] lifecycle_1.0.4 cluster_2.1.6 magrittr_2.0.3
#> [13] compiler_4.5.0 rlang_1.1.4 sass_0.4.9
#> [16] tools_4.5.0 igraph_2.1.1 utf8_1.2.4
#> [19] yaml_2.3.10 knitr_1.48 labeling_0.4.3
#> [22] graphlayouts_1.2.0 plyr_1.8.9 xml2_1.3.6
#> [25] RColorBrewer_1.1-3 withr_3.0.2 purrr_1.0.2
#> [28] BiocGenerics_0.53.0 grid_4.5.0 polyclip_1.10-7
#> [31] ggh4x_0.2.8 stats4_4.5.0 fansi_1.0.6
#> [34] colorspace_2.1-1 scales_1.3.0 iterators_1.0.14
#> [37] MASS_7.3-61 tinytex_0.53 cli_3.6.3
#> [40] rmarkdown_2.28 crayon_1.5.3 generics_0.1.3
#> [43] rjson_0.2.23 commonmark_1.9.2 cachem_1.1.0
#> [46] ggforce_0.4.2 stringr_1.5.1 parallel_4.5.0
#> [49] BiocManager_1.30.25 matrixStats_1.4.1 vctrs_0.6.5
#> [52] yulab.utils_0.1.7 jsonlite_1.8.9 bookdown_0.41
#> [55] IRanges_2.41.0 GetoptLong_1.0.5 S4Vectors_0.45.0
#> [58] ggrepel_0.9.6 clue_0.3-65 magick_2.8.5
#> [61] foreach_1.5.2 tidyr_1.3.1 jquerylib_0.1.4
#> [64] glue_1.8.0 codetools_0.2-20 ggtext_0.1.2
#> [67] stringi_1.8.4 shape_1.4.6.1 gtable_0.3.6
#> [70] ComplexHeatmap_2.23.0 munsell_0.5.1 tibble_3.2.1
#> [73] pillar_1.9.0 htmltools_0.5.8.1 circlize_0.4.16
#> [76] R6_2.5.1 doParallel_1.0.17 tidygraph_1.3.1
#> [79] evaluate_1.0.1 highr_0.11 markdown_1.13
#> [82] png_0.1-8 gridtext_0.1.5 ggbump_0.1.0
#> [85] memoise_2.0.1 ggfun_0.1.7 bslib_0.8.0
#> [88] Rcpp_1.0.13 gridExtra_2.3 scatterpie_0.2.4
#> [91] xfun_0.48 fs_1.6.4 forcats_1.0.0
#> [94] pkgconfig_2.0.3 GlobalOptions_0.1.2