After FindSubcluster, Dimplot results in errors

[1228849000]

1. I do Dimplot in my data. Results area as follows:

2. Then, I run the FindSubcluster() function. It's successful.

scRNA<-readRDS("merge_all_sample_PCA_RunHarmony_UMAP.rds")·
scRNA_sub <- FindSubCluster(
        scRNA,
        c("0","1","2","4","5","6","7","8","10","12"),
        graph.name='SCT_snn',
        subcluster.name="sub_cluster",
        resolution=0.01,
        algorithm=1
)
saveRDS(scRNA_sub,"merge_all_sample_PCA_RunHarmony_UMAP_subcluster.rds")
scRNA_harmony <- readRDS("merge_all_sample_PCA_RunHarmony_UMAP_subcluster.rds")
# extract the sub_cluster, and order them
a<-unique([email protected]$sub_cluster)
main <- as.numeric(sub("_.*", "", a))
sub <- suppressWarnings(as.numeric(sub(".*_", "", a)))
sub[is.na(sub)] <- Inf
a <- a[order(main, sub)]
[email protected]$sub_cluster <- factor([email protected]$sub_cluster,levels=a)
#Set Idents
Idents(scRNA_harmony) <- "sub_cluster"
saveRDS(scRNA_harmony,"merge_all_sample_PCA_RunHarmony_UMAP_subcluster_setcluster.rds")
p <- DimPlot(scRNA_harmony,label=TRUE,raster=TRUE)
print(length(a))
pdf("merge_all_sample_PCA_RunHarmony_UMAP_subcluster_dimplot1.pdf")
print(p)
dev.off()

I didn't know why. Additionally, i try to use other arguments for instance, col and group.by. It failed.

The Idents(scRNA_harmony) is no problem