R/qcPlotFctVennTable.R

In TPP: Analyze thermal proteome profiling (TPP) experiments

qcPlotFctVennTable <- function(plotIDs, allIDs){
  ## Create table to be added below the Venn diagram.
  
  tableDF = data.frame()
  for(name in names(allIDs)){
    lmntsIn <- length(plotIDs[[name]])
    lmntsTotal <- length(allIDs[[name]])
    lmntsOut <- lmntsTotal - lmntsIn
    row_df = data.frame(condition=name, passed_filter=lmntsIn, 
                        filtered_out=lmntsOut, Total=lmntsTotal)
    tableDF = rbind(tableDF, row_df)
  }
  return(tableDF)
}