Allocating stocks when greater than forecast in r

Question

I have the following data:

item <- c(\'abc\',\'def\',\'ghi\',\'jkl\')
stocks <- c(100,200,140,150)
Forecast <- c(120,180,140,90) 

df <- data.fram