R/plot_MFIs.R

In saeyslab/FlowSOM_workshop: How to get started with FlowSOM

#'@export
plot_cluster_MFIs <- function(fsom, names = NULL){
  MFIs <- GetMFIs(fsom)[, fsom$map$colsUsed]
  plot_MFIs(MFIs, fsom, names)
}

#'@export
plot_metacluster_MFIs <- function(fsom, names = NULL){
  MFIs <- MetaclusterMFIs(fsom)[, fsom$map$colsUsed]
  plot_MFIs(MFIs, fsom, names)
}

plot_MFIs <- function(MFIs, fsom, names){
  colnames(MFIs) <- fsom$prettyColnames[fsom$map$colsUsed]
  if(!is.null(names)) rownames(MFIs) <- paste0(rownames(MFIs), " (", names, ")")
  pheatmap::pheatmap(MFIs)
}