# #——AHub1回声= TRUE --------------------------------------------------------- 库(“AnnotationHub”)啊< - AnnotationHub () mcols(啊)# #——AHub2回声= TRUE --------------------------------------------------------- dbfile < -查询(啊,c(“LRBaseDb”、“智人”,“v002”))[[1 ]] ## ---- AHub3,回声= TRUE --------------------------------------------------------- 库(LRBaseDbi) LRBase.Hsa.eg.db < - LRBaseDbi:: LRBaseDb (dbfile) # #——访问,回声= TRUE -------------------------------------------------------- 列(LRBase.Hsa.eg.db) keytypes (LRBase.Hsa.eg.db) key_HSA < -键(LRBase.Hsa.eg.db keytype =“GENEID_L”)负责人(选择(LRBase.Hsa.eg.db键= key_HSA[1:2],列= c(“GENEID_L”、“GENEID_R”),keytype = " GENEID_L ")) ## ---- Other1,回声= TRUE -------------------------------------------------------- lrNomenclature (LRBase.Hsa.eg.db)物种(LRBase.Hsa.eg.db) lrListDatabases (LRBase.Hsa.eg.db) lrVersion (LRBase.Hsa.eg.db) dbInfo (LRBase.Hsa.eg.db) dbfile (LRBase.Hsa.eg.db) dbschema (LRBase.Hsa.eg.db) dbconn (LRBase.Hsa.eg.db) # #——Other2回声= TRUE -------------------------------------------------------- suppressPackageStartupMessages(图书馆(“RSQLite”))dbGetQuery (dbconn (LRBase.Hsa.eg.db),“从数据选择* GENEID_L =‘9068’和GENEID_R = 10“14”限制 ") ## ---- SCE1,回声= TRUE ---------------------------------------------------------- suppressPackageStartupMessages(库(“scTensor”)(“SingleCellExperiment suppressPackageStartupMessages(图书馆 ")) ## ---- SCE2 fig.cap =“生殖系,男,GSE86146”,呼应= TRUE, fig.width = 10,fig.height=10---- data(GermMale) data(labelGermMale) data(tsneGermMale) sce <- singlecellexper实验组(assays=list(counts = GermMale)) reducedDims(sce) <- SimpleList(TSNE=tsneGermMale$Y) plot(reducedDims(sce)[[1]]， col=labelGermMale, pch=16, cex=2, xlab="Dim1"， ylab="Dim2"， main="Germline, Male, GSE86146") legend("topleft"， legend=c(paste0("FGC_"， 1:3)， paste0("Soma_"， 1:4))， col=c("#9E0142"， "#D53E4F"， "#F46D43"， "#ABDDA4"， "#66C2A5"， "#3288BD"， "#5E4FA2")， pch=16) ## ----cellCellSetting，回声= TRUE ----------------------------------------------- (labelGermMale cellCellSetting (sce、LRBase.Hsa.eg.db名称 )) ## ---- cellCellDecomp,回声= TRUE ------------------------------------------------ set.seed (1234) cellCellDecomp (sce排名= c(2、3 )) ## ---- cellCellRank,回声= TRUE -------------------------------------------------- ( 地基处理< cellCellRanks (sce)地基处理选择# #美元——sessionInfo回声= FALSE -------------------------------------------------- sessionInfo ()