dvBar01

dvBar01.Rmd

```{r}
restaurant_df <- data.frame(restaurant=c('SweetRed', 'BananaBee'), 
                            stronglyAgree=c(5,1), 
                            agree=c(4,2), 
                            neutral = c(3,3), 
                            disagree=c(2,4), 
                            stronglyDisagree=c(1,5))

#column names with space!
colnames(restaurant_df) <-  c('Restaurant',"Strongly Agree", "Agree", "Neutral", "Disagree", "Strongly disagree")

restaurant_df
```{r}