> knitr::opts_chunk$set(
+ collapse = TRUE,
+ comment = "#>",
+ root.dir = './'
+ )
> #knitr::opts_chunk$set(eval = FALSE)
> library(CellChat)
> library(patchwork)
> data.dir <- './comparison'
> dir.create(data.dir)
> setwd(data.dir)
The working directory was changed to C:/Users/Nano/Desktop/cellchat-2-groups/comparison inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the working directory for notebook chunks.> #cellchat.NL <- readRDS(url("https://ndownloader.figshare.com/files/25954199"))
> cellchat.NL <- readRDS('cellchat_humanSkin_LS-m-LPBS.rds')
> #cellchat.LS <- readRDS(url("https://ndownloader.figshare.com/files/25956518"))
> cellchat.LS <- readRDS('cellchat_humanSkin_LS-m-LGd.rds')
> object.list <- list(NL = cellchat.NL, LS = cellchat.LS)
> cellchat <- mergeCellChat(object.list, add.names = names(object.list))
Merge the following slots: 'data.signaling','net', 'netP','meta', 'idents', 'var.features' , 'DB', and 'LR'.
> cellchat
An object of class CellChat created from a merged object with multiple datasets
485 signaling genes.
5115 cells.
网友评论