如何在Seurat中对DoHeatmap图中的单元格进行重新排序(ggplot2)

library(Seurat)
library(ggplot2)

# 例如，读取单细胞RNA测序数据
data <- Read10X(data.dir = "path/to/data")

# 创建Seurat对象
seurat <- CreateSeuratObject(counts = data)

# 进行数据预处理和分析，例如标准化、归一化、降维等
# ...

# 生成DoHeatmap图
seurat <- DoHeatmap(seurat, genes.use = c("gene1", "gene2", "gene3"))

# 例如，按照基因gene1的表达水平进行排序
seurat <- reorder(seurat, ref = "gene1")

# 使用ggplot2绘制DoHeatmap图
ggplot(seurat@heatmaps$heatmap_plot_data, aes(x = x, y = y)) +
  geom_tile(aes(fill = expression), color = "white") +
  scale_fill_gradient(low = "white", high = "blue") +
  theme_minimal()