Add an additional X axis to the plot and some lines/annotations to show the percentage of data under it

Question

I was trying to recreate this plot:

using the following code -

library(tidyverse)
set.see