Convert a rectangleGate to a data.table useful for ggplot

Description

For 2d rectangelGate, it is converted to a polygonGate first and then dispatch to the fortify method for polygonGate. for 1d, uses geom_vline/hline format.

Usage

## S3 method for class 'rectangleGate'
fortify(model, data = NULL, ...)

Arguments

Value

data.table

Examples

#2d rectangleGate
rect.g <- rectangleGate(list("FSC-H" =  c(300,500), "SSC-H" = c(50,200)))
fortify(rect.g)
#1d gate
rg <- rectangleGate(list("FSC-H" =  c(300,500)))
fortify(rg)

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(ggcyto)
Loading required package: ggplot2
Loading required package: flowCore
Loading required package: ncdfFlow
Loading required package: flowViz
Loading required package: lattice
Loading required package: RcppArmadillo
Loading required package: BH
Loading required package: flowWorkspace
Loading required package: gridExtra
> png(filename="/home/ddbj/snapshot/RGM3/R_BC/result/ggcyto/fortify.rectangleGate.Rd_%03d_medium.png", width=480, height=480)
> ### Name: fortify.rectangleGate
> ### Title: Convert a rectangleGate to a data.table useful for ggplot
> ### Aliases: fortify.rectangleGate
> 
> ### ** Examples
> 
> #2d rectangleGate
> rect.g <- rectangleGate(list("FSC-H" =  c(300,500), "SSC-H" = c(50,200)))
> fortify(rect.g)
   FSC-H SSC-H
1:   300    50
2:   500    50
3:   500   200
4:   300   200
5:   300    50
> #1d gate
> rg <- rectangleGate(list("FSC-H" =  c(300,500)))
> fortify(rg)
   FSC-H
1:   300
2:   500
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>