TREG-and-Exhaustion-Dotplot

1. load libraries

2. Read obj

# Load your object
All_sample_Merged <- readRDS("../All_samples_Merged_with_STCAT_and_renamed_FINAL.rds")

3. Dotplot

library(Seurat)
library(ggplot2)

# Define markers
treg_markers <- c("FOXP3", "IL2RA", "IKZF2", "TNFRSF18", "CD39")
exhaustion_markers <- c("PDCD1", "CTLA4", "LAG3", "HAVCR2", "TIGIT", "TOX", "ENTPD1")

# Combine all markers
all_markers <- unique(c(exhaustion_markers, treg_markers))

# Simple DotPlot
DotPlot(All_sample_Merged, features = all_markers) +
  scale_color_gradient(low = "grey", high = "firebrick") +  # expression color
  scale_size(range = c(2, 8)) +                             # % expressing
  theme_minimal(base_size = 12) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  labs(title = "Treg and Exhaustion Markers in Sézary Syndrome",
       color = "Avg Expression", size = "% Expressing")

Idents(All_sample_Merged) <- "seurat_clusters"

# Simple DotPlot
DotPlot(All_sample_Merged, features = all_markers) +
  scale_color_gradient(low = "grey", high = "firebrick") +  # expression color
  scale_size(range = c(2, 8)) +                             # % expressing
  theme_minimal(base_size = 12) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  labs(title = "Treg and Exhaustion Markers in Sézary Syndrome",
       color = "Avg Expression", size = "% Expressing")

NA
NA
NA