convert archr project to seurat v4

[A-legac45]

Hi, @rcorces @jeffmgranja @jgranja24 @keyuxi

I would llke to copy my entire ARCHR project cluster, embedding, umap ... into a seurat object but I do not succed to copy embeddings

I try many things but without success :

such as

code
Extraire toutes les matrices disponibles

all_matrices <- lapply(matrices, function(mat) {
getMatrixFromProject(project_Peaks_RES0.9_subcluster, useMatrix = mat, binarize = TRUE)
})
Nommer les matrices extraites pour identification

names(all_matrices) <- matrices
Extraire tous les embeddings disponibles

embeddings <- c("UMAP_ATAC", "UMAP_RNA") # Ajouter d'autres embeddings si disponibles
all_embeddings <- lapply(embeddings, function(emb) {
getEmbedding(project_Peaks_RES0.9_subcluster, embedding = emb)
})
TEST POUR UNE MATRIX

geneScoreMatrixtest <- assay(geneScoreMatrix)

rownames(geneScoreMatrixtest) = geneScoreMatrix@elementMetadata$name
Créer un objet Seurat à partir de la matrice des scores de gènes

seurat_obj <- CreateSeuratObject(counts = geneScoreMatrixtest)
Ajouter les métadonnées du projet ArchR (par exemple, clusters, batch, etc.)

[seurat_obj@meta.data](mailto:seurat_obj@meta.data) <- as.data.frame(project_Peaks_RES0.9_subcluster@cellColData)
umap_embeddings <- getEmbedding(ArchRProj = project_Peaks_RES0.9_subcluster, embedding = "UMAP_ATAC", returnDF = TRUE)
head(umap_embeddings)
LSI_ATAC#UMAP_Dimension_1 LSI_ATAC#UMAP_Dimension_2
First_try_multiomic_archr#GCGGGTTTCGCTATAA-1 -1.1732380 -0.65935683
First_try_multiomic_archr#GCGAGTGAGGAGTCTT-1 -2.1469619 0.02576101
First_try_multiomic_archr#GTTACCTGTTAACAGT-1 2.5640571 -1.99734956
First_try_multiomic_archr#CGGGACAAGTACCGCA-1 -1.2808077 -1.08204150
First_try_multiomic_archr#AGTGTGGCAATAAGCA-1 -0.4350121 -1.20366609
First_try_multiomic_archr#GGAGGTTAGAGGAGGA-1 1.0420330 -2.85625717
seurat_obj[[umap_embeddings]] <- CreateDimReducObject(embeddings = umap_embeddings, key = "LSI", assay = "RNA")
Error in validObject(.Object) :
invalid class “DimReduc” object: invalid object for slot "cell.embeddings" in class "DimReduc": got class "data.frame", should be or extend class "matrix"
In addition: Warning message:
Keys should be one or more alphanumeric characters followed by an underscore, setting key from LSI to LSI_