# Re: [R] Help needed with Waterfall plot

From: Gabor Grothendieck <ggrothendieck_at_gmail.com>
Date: Sat, 01 Nov 2008 07:58:42 -0400

Here is one possibility:

# random data
set.seed(1)
growth <- sort(runif(215, -100, 100), decreasing = TRUE)

col <- factor(1 + (growth < -25) + (growth < 25),

lab = c("black", "grey50", "grey80"))
barplot(growth, col = levels(col)[col], ylab = "% Growth",

```	main = "Random Data", xlab = "", space = 0, border = 0,
ylim = c(-100, 100))
legend("topright", legend = c("> 25%", "25% > . > -25%", "< 25%"),
cex = 0.8, bty = "n", fill = levels(col))
```
legend("bottomleft", "Random data with style of: Ratain et al, JCO, 2006, Fig 2", cex = 0.6, bty = "n")

On Fri, Oct 31, 2008 at 12:25 PM, Philip Twumasi-Ankrah <nana_kwadwo_derkyi_at_yahoo.com> wrote:
> Hi friends,
> I need suggestions/directions on how to producing a waterfall plot for present extend of change in tumour size for a set of respondents in a study. Example of use of waterfall plot is in the following slides presented at ASCO 2007 by Axel Grothey. Link is
>
> http://media.asco.org/player/default.aspx?LectureID=AG265&conferenceFolder=GI2007&SessionFolder=Poster&slideonly=yes&TrackID=N929&LectureTitle=Waterfall%20plots%20provide%20detailed%20information%20on%20magnitude%20of%20response%20to%20conventional%20chemotherapy%20in%20colorectal%20cancer%3a%20Lessons%20learned%20from%20N9741.&Key=vm_45_3_26_265&SpeakerName=%3b%20Presenter%3a%20Axel%20Grothey%2c%20MD&mediaURL=%2fmedia&ServerName=media.asco.org&max=12&ext=jpg&useASX=false&playtype=&playtype=&playtype=,
>
> The link is pretty long but it takes you right to the presentation.
>
>
>
> A Smile costs Nothing
> But Rewards Everything
>
> Happiness is not perfected until it is shared
> -Jane Porter
>
>
>
>
> [[alternative HTML version deleted]]
>
>
> ______________________________________________
> R-help_at_r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help