How do I get labels on this plot?

geom_bar_fill.R

library(ggplot2)

df <- data.frame(type = c(rep('Elementary', 2), rep('Middle', 2), rep('High', 2)),
                 included = rep(c('included','excluded'),3),
                 dollars = c(1000, 2500, 4000, 1000, 3000, 2800))
ggplot(data = df, aes(type, dollars, fill = included)) + 
geom_bar(position = 'fill', stat = 'identity') + 
geom_text()                 

Another option is to leverage ggplotly()'s ability to return data after statistics have been applied:

https://cpsievert.github.io/plotly_book/extending-ggplotly.html#leveraging-statistical-output