From 394efac6361104e26b55131921f619febfb2deca Mon Sep 17 00:00:00 2001 From: Jacob Mitchell Date: Mon, 22 Jul 2024 08:40:19 -0400 Subject: [PATCH] add cluster selection example --- R/plot_fxns.R | 2 ++ man/circos_ligand_receptor.Rd | 2 ++ 2 files changed, 4 insertions(+) diff --git a/R/plot_fxns.R b/R/plot_fxns.R index f23867c..72efab4 100644 --- a/R/plot_fxns.R +++ b/R/plot_fxns.R @@ -766,6 +766,8 @@ cor_scatter <- function(dom, tf, rec, remove_rec_dropout = TRUE, ...) { #' cols = c("red", "orange", "green") #' names(cols) = dom_clusters(pbmc_dom_built_tiny) #' circos_ligand_receptor(pbmc_dom_built_tiny, receptor = "CXCR3", cell_colors = cols) +#' # plot a subset of clusters +#' circos_ligand_receptor(pbmc_dom_built_tiny, receptor = "CXCR3", cell_idents = c("CD14_monocyte", "CD8_T_cell")) #' circos_ligand_receptor <- function( dom, receptor, ligand_expression_threshold = 0.01, cell_idents = NULL, diff --git a/man/circos_ligand_receptor.Rd b/man/circos_ligand_receptor.Rd index 2df7d92..6f4a4bd 100644 --- a/man/circos_ligand_receptor.Rd +++ b/man/circos_ligand_receptor.Rd @@ -38,5 +38,7 @@ circos_ligand_receptor(pbmc_dom_built_tiny, receptor = "CXCR3") cols = c("red", "orange", "green") names(cols) = dom_clusters(pbmc_dom_built_tiny) circos_ligand_receptor(pbmc_dom_built_tiny, receptor = "CXCR3", cell_colors = cols) +# plot a subset of clusters +circos_ligand_receptor(pbmc_dom_built_tiny, receptor = "CXCR3", cell_idents = c("CD14_monocyte", "CD8_T_cell")) }