```r
butraffic %>% mutate(Percent=round(100*Count/sum(Count),1)) ->butraffic

g0<-ggplot(butraffic,aes(x=Vehicle,y=Percent, label=paste(Percent, "%", sep=""))) 
g2<-g0 + geom_col() + geom_label()
g2
```

<img src="qs_21_files/figure-html/unnamed-chunk-54-1.png" width="672" />