Lags don't like Trend

Question

Let\'s take data

library(plm)
library(dplyr)
data("EmplUK", package="plm")
dep_var<-EmplUK[\'capital\']
df1<-EmplUK[-6]
df1<-df1[