# NOT RUN {
df <- data.frame(
city = c("Berlin", "Munich", "Cologne", "London", "Vienna", "Paris", "Zurich"),
profit = sin(1:7)
)
bar_chart_waterfall(cat = 'city', series = 'profit', data = df)
# }
Run the code above in your browser using DataLab