data = data.frame(list(segment = c("FirstTime", "FirstTime", "FirstTime", "Return", "Return", "Return", 
    "Sale", "Sale", "Sale"), source = c("Referral", "LinkedIn", "Cold Call", "Referral", "LinkedIn", "Cold Call", 
    "Referral", "LinkedIn", "Cold Call"), value = c(10, 15, 20, 5, 10, 18, 3, 5, 8)))

p10 <- rPlot(x = list(var = "segment", sort = "sum(value)", desc = "true"), y = "value", data = data, color = "source", 
    type = "bar", height = 200, width = 720)
p10$guides(x = list(renderLine = "false", renderTick = "false", renderLabel = "true", renderGrid = "false"), 
    y = list(position = "none"))
p10$coord(type = "cartesian", flip = "true")
p10$set(title = "Sales Funnel")
p10