Line not getting in scatterplot R

Question

I have an issue getting a line in R. I have the following code:

#7.4
NFull <- tp$ntest;
Ni <- 0.7*log(tp$ntest);
#install.packages(mgcv)
library(mgcv)
p