clear all the geom_gate() layer previously added
1 |
1 2 3 4 5 6 7 8 9 | dataDir <- system.file("extdata",package="flowWorkspaceData")
gs <- load_gs(list.files(dataDir, pattern = "gs_manual",full = TRUE))
#autoplot display pop stats by default
p <- autoplot(gs, "CD4")
#it is easy to remove the default gate
p <- p + gate_null()
#and add a new one
p <- p + geom_gate("CD8")
p
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.