FloWuenne

library(tidyverse)
library(Seurat)
# Find specific markers for each cell type

celltypes <-   # list of cell types (unique ident labels of Seurat object)
obj <-         # Seurat object
specific_markers <- NULL

# First we do all pairwise comparisons and retain any markers that 
# are even somewhat higher in the cell type of interest

FloWuenne

library(tidyverse)
library(Seurat)
# Find specific markers for each cell type
# Find specific markers for each cell type

celltypes <- unique(expression_seurat_subset@ident)  # list of cell types (unique ident labels of Seurat object)
obj <-   expression_seurat_subset      # Seurat object
specific_markers <- NULL

# First we do all pairwise comparisons and retain any markers that