Replies: 2 comments
-
Please open an issue and include the output of |
Beta Was this translation helpful? Give feedback.
-
Thanks for your reply. I've solved this problem. This error is reported may because my rownames (counts) are separated by '', similar to dd_Smes_g4_99-2151278-2151524. When I run CreateChromatinAssay(), I find a warning: Then I change my chr scaffold name into dd.Smes.g4.x, this error is solved. Here is the output of sessionInfo():
R version 4.3.2 (2023-10-31) Matrix products: default locale: time zone: Asia/Shanghai attached base packages: other attached packages: loaded via a namespace (and not attached): |
Beta Was this translation helpful? Give feedback.
-
when I follow the Vignettes (scATAC-seq data integration) to merge muti atac data, I've successfully created four objects via CreateChromatinAssay and CreateSeuratObject. However, when I merge the four objects, i got the error: Error in .get_data_frame_col_as_numeric(df, granges_cols[["start"]]) :
some values in the "start" column cannot be turned into numeric values
In addition: Warning message:
Expected 3 pieces. Additional pieces discarded in 53858 rows [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, ...].
Here is my code:
`library(Signac)
library(Seurat)
library(ggplot2)
library(Matrix)
obj.list <- list()
sample.list <- c("sexual_0h","sexual_5d","sexual_7d","sexual_WT")
frag.path <- "/dellfsqd2/ST_LBI/USER/****/projects/wochong/11.atac/00.frag_data"
for (i in sample.list) {
counts <- readMM(paste0(frag.path,"/",i,".Peak_matrix/matrix.mtx"))
barcodes <- read.table(paste0(frag.path,"/",i,".Peak_matrix/barcodes.tsv"))
peaks <- read.table(paste0(frag.path,"/",i,".Peak_matrix/peak.bed"))
rownames(counts) <- peaks$V1
colnames(counts) <- barcodes$V1
metadata <- read.csv(paste0("/dellfsqd2/ST_OCEAN/USER/*****/Project/10.smed.sexual/06.scATAC/01.QC/",i,"/output/",i,".Metadata.tsv"),
sep = "\t",row.names = 1)
metadata$Sample <- i
chrom_assay <- CreateChromatinAssay(
counts = counts,
sep = c(":", "-","_"),
fragments = paste0(frag.path,"/",i,".fragments.tsv.gz"),
min.cells = 10,
min.features = 200
)
obj.list[[i]] <- CreateSeuratObject(
counts = chrom_assay,
assay = "peaks",
meta.data = metadata
)
obj.list[[i]] <- FindTopFeatures(obj.list[[i]], min.cutoff = 10)
obj.list[[i]] <- RunTFIDF(obj.list[[i]])
obj.list[[i]] <- RunSVD(obj.list[[i]])
}
obj.combined <- merge(obj.list[[1]],obj.list[2:4]) `
Hope to get reply 🙏🙏🙏
Beta Was this translation helpful? Give feedback.
All reactions