This package is designed to store, query and visualize the hierarchical gated flow data.
It also facilitates the comparison of automated gating methods against manual gating by
importing basic flowJo workspaces into R and replicate the gating from flowJo using the flowCore functionality. Gating hierarchies,
groups of samples, compensation, and transformation are performed so that the output matches the flowJo analysis.
# First, install it from bionconductor so that it will pull all the dependent packages automatically
library(BiocInstalller)
bicLite(flowWorkspace) # may be older
# Then, install the latest version from github using devtools package
install.packages("devtools")
library(devtools) #load it
install_github("flowWorkspace/RGLab", ref="trunk")
library(flowWorkspace)
dataDir <- system.file("extdata", package="flowWorkspaceData")
wsfile <- list.files(dataDir, pattern="manual.xml",full=TRUE)
ws <- openWorkspace(wsfile);
gs <- parseWorkspace(ws, path = dataDir, name = 4, subset = "CytoTrol_CytoTrol_1.fcs")
gs
#get the first sample
gh <- gs[[1]]
#plot the hierarchy tree
plot(gh)
#show all the cell populations(/nodes)
getNodes(gh)
#show the population statistics
getPopStats(gh)
#plot the gates
plotGate(gh)