CNV=obj_cnv_all@meta.data[,c("cnv_umap_1", "cnv_umap_2")]
colnames(CNV)=paste0("cnv_umap", 1:2)
CNV=as.matrix(CNV)
obj_cnv_all[["cnv_umap"]] <- CreateDimReducObject(embeddings = CNV, key = "cnv_umap_", assay = "RNA")
obj_cnv_all[["RNA4"]] <- as(object = obj_cnv_all[["RNA"]], Class = "Assay")
DefaultAssay(obj_cnv_all) <- "RNA4"
