Create a histogramm and add the rank above the histogram

My question may be stupid but I could not solve by my own. I have a data which show the sports activiy by year from 1995 to 2015 like this

Now I would like to create a histogram

ggplot(data, aes(x=Year, y=Sportsactivity)) + geom_bar(stat="identity")+
ggtitle("Sportsactivity with rank the year")

How can I add the rank above every year in the bar chart corresponding to the year?

For example 2007 should have the number one above its bar line

>Solution :

A simple solution:

ggplot(data, aes(x=Year, y=Sportsactivity)) + 
  geom_bar(stat="identity")+
  geom_text(aes(label = nrow(data)-rank(Sportsactivity)+1), size = 10, vjust = 2, colour = "white") +
  ggtitle("Sportsactivity with rank the year")