下面是手动修改列名的R代码，你自己可以运行修改一下：
# 加载必要的包
library(Seurat)
library(dplyr)
## 1. 创建示例Seurat对象（如果已有数据可跳过此步）
# 使用Seurat内置数据集
seurat_obj <- readRDS("subsetCD8.reanalysis.rds")
# 查看原始metadata列名
cat("原始metadata列名:\n")
print(colnames(seurat_obj@meta.data))
## 2. 修改metadata列名
# 使用dplyr的rename函数（更推荐）
seurat_obj@meta.data <- seurat_obj@meta.data %>%
rename(
cell_type = letter.idents, # 将letter.idents改名为cell_type
n_genes = nFeature_RNA # 将nFeature_RNA改名为n_genes
)
# 查看修改后的列名
cat("\n修改后的metadata列名:\n")
print(colnames(seurat_obj@meta.data))
## 3. 保存修改后的Seurat对象
# 保存为RDS文件（推荐单文件格式）
saveRDS(seurat_obj, file = "modified_seurat.rds")
