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 <[EMAIL PROTECTED]> 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@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > > ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.