dvBar04

dvBar04.Rmd

```{r}
# change the order
restaurant_df_long$scales <- factor(restaurant_df_long$scales, levels = c('Strongly agree', 'Agree', 'Strongly disagree','Disagree', 'Neutral'))

ggplot(data = restaurant_df_long, aes(x = restaurant, 
             y = signedCount,
             fill = scales)) +
  geom_col(width = 0.5) +
  geom_text(aes(label = count),
            position = position_stack(vjust = 0.5)) +
  # flip x and y axis
  coord_flip() +
  scale_x_discrete() +
  # use customized colors
  scale_fill_manual(breaks = scales,
                    values = c(
                      "Strongly agree" = "hotpink1",
                      "Agree" = "lightpink1",
                      'Neutral' = 'gray',
                      'Strongly disagree' = "mediumpurple2",
                      'Disagree' = "mediumpurple4"
                    )) +
  labs(title = "I had great dining experience")
```