Hello,
I am using harmony integration on my scRNAseq experiment. But looking at the DimPlot, the integration seems to fail on sample om2039.
This sample contains a very high number of cells (10K, others have around 2-6K). Can that cause the problem and how can I fix that without loosing too much cells?
My code:
merg_sc <- merg_sc %>%
Seurat::NormalizeData(verbose = FALSE) %>%
FindVariableFeatures(selection.method = "vst", nfeatures = 3000) %>%
ScaleData(features = rownames(merg_sc), verbose = FALSE) %>%
RunPCA(verbose = FALSE)
#batch correction with harmony
options(repr.plot.height = 2.5, repr.plot.width = 6)
sc_harmony <- merg_sc %>%
RunHarmony("orig.ident", plot_convergence = TRUE)
rm(merg_sc, sample_ids, sample_list,p1)
#extract harmony embeddings
harmony_embeddings <- Embeddings(sc_harmony, 'harmony')
write.csv(harmony_embeddings, file = paste(output_path, "harmony_embeddings.csv", sep = ""))
#now lets explore cluster
sc_harmony <- sc_harmony %>%
RunUMAP(reduction = "harmony", dims = 1:50) %>% #adjust dimensions
FindNeighbors(reduction = "harmony", dims = 1:50) %>%
FindClusters(resolution = 0.3) #adjust resolution

Hello,
I am using harmony integration on my scRNAseq experiment. But looking at the DimPlot, the integration seems to fail on sample om2039.
This sample contains a very high number of cells (10K, others have around 2-6K). Can that cause the problem and how can I fix that without loosing too much cells?
My code:
merg_sc <- merg_sc %>%
Seurat::NormalizeData(verbose = FALSE) %>%
FindVariableFeatures(selection.method = "vst", nfeatures = 3000) %>%
ScaleData(features = rownames(merg_sc), verbose = FALSE) %>%
RunPCA(verbose = FALSE)
#batch correction with harmony
options(repr.plot.height = 2.5, repr.plot.width = 6)
sc_harmony <- merg_sc %>%
RunHarmony("orig.ident", plot_convergence = TRUE)
rm(merg_sc, sample_ids, sample_list,p1)
#extract harmony embeddings
harmony_embeddings <- Embeddings(sc_harmony, 'harmony')
write.csv(harmony_embeddings, file = paste(output_path, "harmony_embeddings.csv", sep = ""))
#now lets explore cluster
sc_harmony <- sc_harmony %>%
RunUMAP(reduction = "harmony", dims = 1:50) %>% #adjust dimensions
FindNeighbors(reduction = "harmony", dims = 1:50) %>%
FindClusters(resolution = 0.3) #adjust resolution