waterfall: Waterfall Charts

##  Ethan M. Rasiel, The McKinsey Way: Using the Techniques of the
##  World's Top Strategic Consultants to Help You and Your Business
##  (New York:  McGraw-Hill, 1999), 113-118.

`rasiel` <-
structure(list(label = structure(c(3L, 4L, 2L, 1L, 5L), .Label = c("Gains",
"Interest", "Net Sales", "Expenses",
"Taxes"), class = "factor"), value = c(150L, -170L, 18L, 10L,
-2L), subtotal = structure(c(1L, 1L, 2L, 2L, 2L), .Label = c("EBIT",
"Net Income"), class = "factor")), .Names = c("label", "value",
"subtotal"), class = "data.frame", row.names = c(NA, -5L))