## ----- echo = false ---------------------------------------------------------------------------------------------------------- knitr::opts_chunk$set(message = FALSE, warning = FALSE) ## -----------------------------------------------------------------------------------------------------------库（ggcyto）datadir <-system.file（“ extdata”，package =“ flowworkspacedata”）gs < - load_gs（list.files（datadir，pattern，pattern =“ gs_bcell_auto”，full = true））数据（GVHD）FS <-GVHD [subset（PDATA（GVHD），％in％5和访问％c（5：6））[[[“ name”]]] ## ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- autoplot（fs，x ='fsc-h'，y ='ssc-h'，bins = 64）## ------------------------------------------------------------------------------------------------------------ autoplot(fs[[1]） + labs_cyto（“标记”）## ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- autoplot(gs, "CD3", bins = 64) #＃----------------------------------------------------------------------------------------------------- autoplot(gs, c("CD3", "CD19英寸），bin = 64）## ----图width = 4，图。------------------- gh <-gs [[1]]节点<-getNodes（gh，path =“ auto”）[c（3：6）] nodes autoplot（gh，gh，节点，bin = 64）## ----图Width = 8，图。------------- # get ggcyto_GatingLayout object from first sample res <- autoplot(gs[[1]], nodes, bins = 64) class(res) # arrange it as one-row gtable object gt <- ggcyto_arrange(res, nrow = 1) gt # do the same to the second sample gt2 <- ggcyto_arrange(autoplot(gs[[2]], nodes, bins = 64), nrow = 1) # combine the two and print it on the sampe page gt3 <- gridExtra::gtable_rbind(gt, gt2) plot(gt3)