R/make_lineplot_data.R

In kristenmf/flowR: Flow Cytometry and Single Cell Analysis

#' puts a data matrix (compensated, uncompensated) into a format for lineplots
#' ncol(X) == length(markers). Hard-coded Convenience function for reshaping.
#' @param X data matrix with observations/events as rows, features/channels as columns
#' @param markers The column/channel names, e.g. the biomarkers used
#' @return a data frame for making lineplots/parallel coordinate plots
#' @export
make_lineplot_data <- function(X, markers) {
  spec = t(X)[1:(nrow(X) * ncol(X))]
  ch = factor(rep(markers, nrow(X)), levels = markers, ordered = TRUE)
  bin <- factor(rep(1:nrow(X), rep(ncol(X), nrow(X))))
  df <- data.frame(spec = spec, ch = ch, bin = bin)
  return(df)
}