plotWaterfall: plot waterfall

In SCBIT-YYLab/DRAP: Drug Response Analysis Tailored for Drug Testing on Patient-Derived Tumor Models

Description

Visulize the drug response for each animal or each Tumor in the form of waterfall.

Usage

plotWaterfall(data, max.threshold = 100, order.by = c("Best.Avg.Response",
  "Best.Response", "RC.Response"), ...)

Arguments

data	drug response level, the output of DRLevel.
max.threshold,	the max threshold of volume change meseaure to visulize.
order.by	the meseasure ordered by.
...	other parameters passed to ggplot

Examples

## NPDXE.criteria
npdxe.criteria <- data.frame(BestResponse.lower = c(-1000,-0.95,-0.5,0.35),
                             BestResponse.upper = c(-0.95,-0.5,0.35,1000),
                             BestAvgResponse.lower = c(-1000,-0.4,-0.2,0.3), 
                             BestAvgResponse.upper = c(-0.4,-0.2,0.3,1000), 
                             Level = c( 'CR','PR', 'SD','PD'))
npdxe.criteria

data(TAone.volume.data)
TAone.drl <- DRLevel(data = TAone.volume.data, 
                     method = 'NPDXE.Response', 
                     criteria = npdxe.criteria, 
                     neg.control = 'Control')

# Choose the data of GC responsed to BYL719 + LJM716
bl.gc.drl <- TAone.drl[TAone.drl$Arms == "BYL719 + LJM716" & TAone.drl$Type == 'GC',]
plotWaterfall(data = bl.gc.drl, max.threshold = 100,order.by = 'Best.Response')

SCBIT-YYLab/DRAP documentation built on April 7, 2020, 2:03 a.m.