单细胞测序FindVariableFeatures报错

我用R做seurat对象处理时 FindVariableFeatures一直在报错，我不清楚是哪里出了问题，还请大家帮我看看到底是什么原因导致的

#转换基因ID

data1 <- rownames(pbmcMac)
data1 <- as.data.frame(data1)
library(stringr)
data1$data1 <- str_split(data1$data1,"[.]",simplify = T)[,1]
library(org.Mm.eg.db)
data1$data1 <- mapIds(org.Mm.eg.db,keys = data1$data1,keytype = "ENSEMBL",column = "SYMBOL")
RenameGenesSeurat <- function(obj ,
newnames ) {
Replace gene names in different slots of a Seurat object. Run this before integration. Run this before integration.
It only changes obj@assays$RNA@counts, @data and @scale.data.
print("Run this before integration. It only changes obj@assays$RNA@counts, @data and @scale.data.")
RNA <- obj@assays$RNA

if (nrow(RNA) == length(newnames)) {
if (length(RNA@counts)) RNA@counts@Dimnames[[1]] <- newnames
if (length(RNA@data)) RNA@data@Dimnames[[1]] <- newnames
if (length(RNA@scale.data)) RNA@scale.data@Dimnames[[1]] <- newnames
} else {"Unequal gene sets: nrow(RNA) != nrow(newnames)"}
obj@assays$RNA <- RNA
return(obj)
}

pbmc=RenameGenesSeurat(obj = pbmcMac, newnames = data1$data1)
pbmc <- pbmc[!rownames(pbmc) %in% c("NA") , ]

#数据质控

pbmc[["percent.mt"]] <- PercentageFeatureSet(pbmc, pattern = "^MT-")
VlnPlot(pbmc, features = c("nFeature_RNA", "nCount_RNA", "percent.mt"), ncol = 3)
pbmc <- subset(pbmc, subset = nFeature_RNA > 200 & nFeature_RNA < 2500 & percent.mt < 5)
#标准化
pbmc <- NormalizeData(pbmc, normalization.method = "LogNormalize", scale.factor = 10000)
#鉴定细胞间表达量高变的基因
pbmc <- FindVariableFeatures(pbmc, selection.method = "vst", nfeatures = 2000)
Calculating gene variances
0% 10 20 30 40 50 60 70 80 90 100%

Calculating feature variances of standardized and clipped values
0% 10 20 30 40 50 60 70 80 90 100%

Error: Cannot add more or fewer meta.features information without values being named with feature names

你把单细胞测序的报错信息还要截屏发过来我看一下