【生信随笔】1,单细胞下游标准分析
step1. 读取数据
rm(list=ls())
library(Seurat)
library(dplyr)
library(patchwork)
library(readr)
library(ggplot2)
library(RColorBrewer)
## 1.1 for循环依次读入数据
# Create each individual Seurat object for every sample
for (file in c("SRR7722939", "SRR7722940","SRR7722941","SRR7722942")){
seurat_data <- Read10X(data.dir = paste0("./Rawdata/", file))
seurat_obj <- CreateSeuratObject(counts = seurat_data,
min.cells = 3,
共有 0 条评论