data(GvHD)
fs <- GvHD[1:3]
#construct the `ggcyto` object (inherits from `ggplot` class)
p <- ggcyto(fs, aes(x = `FSC-H`))
p + geom_histogram()
# display density/area
p + geom_density()
p + geom_area(stat = "density")
# 2d scatter plot
p <- ggcyto(fs, aes(x = `FSC-H`, y = `SSC-H`))
p + geom_hex(bins = 128)
Run the code above in your browser using DataLab