Turnstile ggplot bar chart