R/cyto_plot_compensation-methods.R
cyto_plot_compensation-flowFrame-method.Rd
Plot each compensation control in all fluorescent channels to identify any potential compensation issues. The unstained control is overlaid in black as a reference.
# S4 method for flowFrame cyto_plot_compensation(x, channel_match = NULL, compensate = FALSE, spillover = NULL, axes_trans = NULL, layout, popup = FALSE, title = NA, header = NA, header_text_font = 2, header_text_size = 1, header_text_col = "black", ...)
x | object of class |
---|---|
channel_match | name of the fluorescent channel associated with the
|
compensate | logical indicating whether the samples should be compensated prior to plotting, set to FALSE by default. If no spillover matrix is supplied to the spillover_file argument the spillover matrix will extracted from the samples. |
spillover | name of spillover matrix csv file including .csv file
extension to apply to sample when |
axes_trans | object of class
|
layout | vector of grid dimensions |
popup | logical indicating whether plots should be constructed in a pop-up window. |
title | text to include above each plot, set to NA by default to remove titles. |
header | title to use for the plots, set to the name of the sample by default. |
header_text_font | font to use for header text, set to 2 by default. |
header_text_size | text size for header, set to 1 by default. |
header_text_col | colour for header text, set to "black" by default. |
... | additional arguments passed to
|
library(CytoRSuiteData) # Don't run - bypass directory check for external files options("CytoRSuite_wd_check" = FALSE) # Load in compensation controls gs <- GatingSet(Compensation)#>#>#>#>#>#>#># Gate single cells using gate_draw gt <- Compensation_gatingTemplate gating(gt, gs)#>#>#>#>#>#>#># Compensation plots cyto_plot_compensation(getData(gs, "Single Cells")[[1]], channel_match = "7-AAD-A", overlay = getData(gs, "Single Cells")[[4]] )