#CytoGate Plugin Gating Functions for openCyto
CytoGate can be installed from Github
library(devtools)
install_github("DillonHammill/CytoGate")
To demonstrate the use of CytoGate the following example uses the gate_draw plugin for openCyto to draw polygonGates manually using the mouse.
library(openCyto)
library(CytoGate)
registerPlugins(fun = gate_draw, methodName = "DrawGate")
listgtMethods()
data(Activation, package = "CytoGate")
gs <- GatingSet(Activation)
library(flowDensity)
template <- add_pop(
gs, alias = "Lymphocytes", pop = "+", parent = "root", dims = "FSC-A,SSC-A",
gating_method = "DrawGate", gating_args = "subSample=20000", collapseDataForGating = TRUE,
groupBy = 2
)
## Select at least 3 points to construct a polygon gate around the population.
library(ggcyto)
ggcyto(gs, subset = "root", aes(x = "FSC-A", y = "SSC-A")) + geom_hex(bins = 100) + geom_gate("Lymphocytes") + geom_stats()
Dillon Hammill, BMedSci (Hons) Ph.D. Scholar The Parish Group – Cancer & Vascular Biology ACRF Department of Cancer Biology and Therapeutics The John Curtin School of Medical Research ANU College of Medicine, Biology and the Environment The Australian National University Acton ACT 2601 Dillon.Hammill@anu.edu.au
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.