Add rank to histogram

I have a dataset like these which show the height of 10 European countries for men.

I would like to create a histogram which shows the country name in a alphabetic order and shows above the bar the rank of the country.

I started already but got not the solution

ggplot(data, aes(x=Country, y=Height)) + geom_line(aes())

>Solution :

First. Here is the data. Please provide the sample dataframe in your future questions.

df <- data.frame(Country = c(
"UK", 
"Ireland", 
"Cyprus", 
"Belgium", 
"Netherlands", 
"Sweden", 
"Norway", 
"Spain", 
"Italy", 
"France"),
Height = c(176, 175, 174, 179, 180, 
178, 181, 173, 171, 177))

Second. I would propose to prepare the data first. Let is add a special column for ranks and transform the Country column to ordered factor:

library(ggplot2)
library(dplyr)
df <- df %>%
    mutate(rnk = rank(Height), Country = factor(Country, ordered = T)) 

Third. Let us plot:

df %>% ggplot(aes(y = rnk, x = Country)) +
geom_bar(stat = "identity") +
geom_text(aes(label=rnk), vjust = - 1)

In this plot we crate the following layers: the barplot with rank as y coord and Coyntry name as x coord and text values of ranks. You can set ecact means instead inside aes(y=Height,...

Finally you get this:

Or this with replaced aesthetics: