# overloaded '+' method for ggcyto

Source: `R/ggcyto_flowSet.R`
`ggcyto_add.Rd`

It tries to copy pData from ggcyto object to the gate layers so that the gate layer does not need to have `pd` to be supplied explicitly by users. It also calculates population statistics when geom_stats layer is added. It supports addition ggcyto layers such as 'ggcyto_par' and 'labs_cyto'.

    e1 + e2

## Arguments

e1 | An object of class `ggcyto` or a class inheriting from `ggcyto`, such as `ggcyto_flowSet`, `ggcyto_GatingSet`, or `ggcyto_GatingLayout`. In the case of `ggcyto_GatingLayout`, the component of `e2` will be added to each subsidiary plot.
e2 | A component to add to `e1`

## Value

ggcyto object

## Examples

    ## flowSet
    data(GvHD)
    fs <- GvHD[subset(pData(GvHD), Patient %in%5:7 & Visit %in% c(5:6))[["name"]]]
    p <- ggcyto(fs, aes(x = `FSC-H`, y =  `SSC-H`)) + geom_hex(bins = 128)
    #add rectangleGate layer (2d)
    rect.g <- rectangleGate(list("FSC-H" =  c(300,500), "SSC-H" = c(50,200)))
    rect.gates <- sapply(sampleNames(fs), function(sn)rect.g)
    p + geom_gate(rect.gates) + geom_stats()
    ## GatingSet
    dataDir <- system.file("extdata",package="flowWorkspaceData")
    gs <- load_gs(list.files(dataDir, pattern = "gs_manual",full = TRUE))
    p <- ggcyto(gs, aes(x = CD4, y = CD8), subset = "CD3+") + geom_hex(bins = 64)
    p <- p + geom_gate("CD4") + geom_stats() #plot CD4 gate and it is stats
    pp + axis_x_inverse_trans() #inverse transform the x axis into raw scale
    ## GatingLayout
    #autplot for GatingSet
    dataDir <- system.file("extdata",package="flowWorkspaceData")
    gs <- load_gs(list.files(dataDir, pattern = "gs_manual",full = TRUE))
    gh <- gs[[1]]
    p <- autoplot(gh)#> Coordinate system already present. Adding new coordinate system, which will replace the existing one.#> Coordinate system already present. Adding new coordinate system, which will replace the existing one.#> Coordinate system already present. Adding new coordinate system, which will replace the existing one.#> Coordinate system already present. Adding new coordinate system, which will replace the existing one.#> Coordinate system already present. Adding new coordinate system, which will replace the existing one.#> Coordinate system already present. Adding new coordinate system, which will replace the existing one.#> Coordinate system already present. Adding new coordinate system, which will replace the existing one.#> Coordinate system already present. Adding new coordinate system, which will replace the existing one.class(p)#> [1] "ggcyto_GatingLayout"
    #> attr(,"package")
    #> [1] "ggcyto"# customize the font size of strip text for each ggcyo plots contained in GatingLayout object
    p + theme(strip.text = element_text(size = 14))