共通コード・セグメントR

＃異なるソースからの再描画図TSNEに対する細胞
cell_source < - COLNAMES（immune_nobatch）
cell_type < - strsplit（cell_source、スプリット= ' _ ' ）
CT <-rep（C（' N '）、タイムズ= 長さ（cell_source） ） 
 のための（I における 1 ：長さ（cell_source））{ 
    CT [I] = cell_type [I] [ 1。] 
} 
newident < - 因子（CT）
Idents（immune_nobatch） < - newident 
PDF（ファイル = paste0（OUTDIR、" DimPlot_source.pdf "）、幅= 9.4、高さ= 7 ）
DimPlot（immune_nobatch、COLSの = Cの（" ＃999999 "、" ＃1 FF0099 "、" ＃1 E69F00 "、" ＃56B4E9 "、" ＃009E73 "、" ＃1 F0E442 "、" ＃1 0072B2 "、" ＃ D55E00 " " ＃のCC79A7 " " ＃990000 " " ＃の9900cc 」、" ＃66FF66の"、" ＃663300 "、" ＃1 0000FF "、" ＃のCC0033 "、" ＃FF0000の"、" ＃333333 " ））
dev.off（）