Build a graph using R

I need to build this graph,

So i have this formula:

k <- 0
maxthreshold <- 100000

thresholds  <- c()
points <- c()

while (k < maxthreshold){


  k <- k+100

So what i need is that in the x axes to put different values of k and in the y axes i need to put the values of the imb and just plot a chart...

Can you please help me with the plot() function? I just need to find different values for the inmb for different values of k Thanks