```r
g1<- g0 + geom_col() + geom_label()
# An alternative which does the same thing is geom_bar with identity stat.
# g1<- g0 + geom_bar(stat="identity") + geom_label() 
g1
```

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