Rename clusters for the Seurat object

Usage

RenameClusters(
  srt,
  group.by,
  nameslist = list(),
  name = "newclusters",
  keep_levels = FALSE
)

Arguments

srt: A Seurat object.
group.by: The old group used to rename cells.
nameslist: A named list of new cluster value.
name: The name of the new cluster stored in the Seurat object.
keep_levels: If the old group is a factor, keep the order of the levels.

Examples

data(pancreas_sub)

# Rename all clusters
pancreas_sub <- standard_scop(pancreas_sub)
#> ℹ [2026-03-20 09:11:00] Start standard scop workflow...
#> ℹ [2026-03-20 09:11:01] Checking a list of <Seurat>...
#> ! [2026-03-20 09:11:01] Data 1/1 of the `srt_list` is "unknown"
#> ℹ [2026-03-20 09:11:01] Perform `NormalizeData()` with `normalization.method = 'LogNormalize'` on 1/1 of `srt_list`...
#> ℹ [2026-03-20 09:11:03] Perform `Seurat::FindVariableFeatures()` on 1/1 of `srt_list`...
#> ℹ [2026-03-20 09:11:03] Use the separate HVF from `srt_list`
#> ℹ [2026-03-20 09:11:04] Number of available HVF: 2000
#> ℹ [2026-03-20 09:11:04] Finished check
#> ℹ [2026-03-20 09:11:04] Perform `Seurat::ScaleData()`
#> ℹ [2026-03-20 09:11:04] Perform pca linear dimension reduction
#> ℹ [2026-03-20 09:11:05] Perform `Seurat::FindClusters()` with `cluster_algorithm = 'louvain'` and `cluster_resolution = 0.6`
#> ℹ [2026-03-20 09:11:05] Reorder clusters...
#> ℹ [2026-03-20 09:11:05] Perform umap nonlinear dimension reduction
#> ℹ [2026-03-20 09:11:05] Perform umap nonlinear dimension reduction using Standardpca (1:50)
#> ℹ [2026-03-20 09:11:09] Perform umap nonlinear dimension reduction using Standardpca (1:50)
#> ✔ [2026-03-20 09:11:13] Run scop standard workflow completed
levels(pancreas_sub@meta.data[["SubCellType"]]) <- unique(
  pancreas_sub@meta.data[["SubCellType"]]
)
pancreas_sub <- RenameClusters(
  pancreas_sub,
  group.by = "SubCellType",
  nameslist = letters[1:8]
)
CellDimPlot(pancreas_sub, "newclusters")


# Rename specified clusters
pancreas_sub <- RenameClusters(pancreas_sub,
  group.by = "SubCellType",
  nameslist = list("a" = "Alpha", "b" = "Beta")
)
CellDimPlot(pancreas_sub, "newclusters")


# Merge and rename clusters
pancreas_sub <- RenameClusters(
  pancreas_sub,
  group.by = "SubCellType",
  nameslist = list(
    "EndocrineClusters" = c("Alpha", "Beta", "Epsilon", "Delta")
  ),
  name = "Merged",
  keep_levels = TRUE
)
CellDimPlot(pancreas_sub, "Merged")