Why data.table is taking too much time to execute a specific part of script in r (Reproducible Example given)?

Question

I am having some issues with extremely slow processing of few lines of my script as given below .I guess apply & customised function are slowing down the performance Any sug